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Accessibility  of  microcomputers  has  brought  increased 
computing  power  to  an  analyst's  -fingertips.  The  purpose  of 
this  research  is  not  to  teach  Q-Gert,  but,  to  give  an 
analyst  familiar  with  Q-Gert  a  useful  tool  making  simulation 
convenient  and  error  free.  For  a  complete  description  of  Q- 
Gert  we  refer  you  to  Modeling  aad  An.ai.xsls  Using  Q-Gert. 
Nat works  by  A.  Alan  B.  Pritsker.  If  an  analyst  has  available 
to  him  an  Apple  computer  and  graphics  tablet,  using  our 
program,  he  can  create  basic  Q-Gert  simulation  models.  The 
network  diagram  is  displayed  on  a  high  resolution  graphics 
screen  and  the  program  will  generate  a  text  file  containing 
the  computer  source  code  that  can  be  sent  via  telephone  to  a 
main frame  computer  to  run  the  Q-Gert  Analysis  program. 

A  major  side  effect  of  any  thesis  is  the  learning 
process  of  conducting  research.  We  learned  a  great  deal 
about  the  methodology  of  research  and,  equally  as  important, 
how  to  work  as  a  team.  With  the  guidance  of  our  thesis 
committee,  LtCol .  Bobko  and  Professor  Richard,  we  learned 
more  about  the  Apple  computer  and  Pascal  then  either  of  use 
dreamed  possible.  Having  no  previous  Pascal  programming 
experience,  we  spent  many  long  hours  agonizing  over 
seemingly  trivial  problems.  LtCol.  Bobko  was  our  guiding 
light  helping  to  solve  many  undocumented  peculiarities  of 
Apple  Pascal;  while,  Professor  Richard  gave  us  valuable 
insight  to  the  available  data  structures  we  needed  to  store 
all  the  information  to  create  the  source  code.  Many  thanks 
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to  the  both  o-f  them 


U)e  must  also  thank  our  -families;  Pam  and  Tricia 
Anderson,  and  Susan  and  Donald  Comme-ford  -for  their  patience 
and  endurance  when  we  were  immersed  in  our  studies. 

Gary  M.  Anderson 
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The  Pascal  computer  program  developed  within,  uses  an 
Apple  microcomputer  and  Graphics  Tablet  to  allow  an  analyst 
to  create  a  Q-Gert  simulation  network  using  computer  aided 
design  techniques.  The  analyst  need  only  select  commands 
•from  the  Graphics  Tablet's  programmed  menu  and  answer 
questions  regarding  the  symbols  to  be  drawn.  The  program 
will  display  the  network  on  the  high  resolution  graphics 
screen  and  generate  a  text  file  containing  the  computer 
source  code  for  input  to  the  Q-Gert  Analysis  program 
residing  on  a  mainframe  computer.  The  basic  concepts  of  Q- 
Gert  are  incorporated  into  the  program.  This  includes 
source,  regular,  queue,  statistic,  and  sink  nodes  along  with 
activities  and  parameters.  The  program  was  written  to  be 
expandable  for  further  development  to  include  more  complex 
concepts  of  Q-Gert. 
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Simulation  has  been  used  -for  many  years  to  understand 
the  behavior  of  systems.  It  has  been  applied  to  a  variety 
of  manufacturing,  service,  and  defense  industries  to 
evaluate  various  strategies  for  achieving  goals  or  solving 
problems.  Many  times  direct  experimentation  is  inappro¬ 
priate  when  trying  to  solve  problems.  It  may  be  disruptive 
to  the  organization,  costly,  time  consuming,  or  impossible 
to  explore  an  alternative  in  real  life  experimentation. 
Therefore,  simulation  may  be  appropriate  if  no  complete 
mathematical  formulation  of  the  problem  exists,  or  the 
analytical  method  needed  is  so  complex  that  simulation  is  a 
simplier  solution  method.  Simulation  models  also  allow  the 
experimenter  to  develop  an  intuitive  understanding  of  the 
system  and  'feel'  for  the  problem.  McKenney  tl23  had  the 
following  to  say  about  using  a  simulation  model  to  under¬ 
stand  the  real  system! 

When  the  manager  had  achieved  a  viable  under¬ 
standing  and  began  to  manipulate  the  model,  he 
cor  1 i nuousl y  gained  new  insights  in'  is  opera¬ 
tic  He  desired  the  model  to  tes*  *  inety  of 
al  atives  so  he  could  evaluate  -.9  new  in- 
si  .  In  essence,  he  was  using  tne  model  to 
am  y  his  manipulative  sk  i  1  '  by  explicitly 
id  fying  all  important  ramifications  of  a  given 
change.  Because  of  the  complexity  of  the  system 
it  may  have  been  possible  for  him  to  do  this  on 
the  real  system,  but  very  tedious,  and  he  probably 
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would  have  made  errors.  Thus,  he  turned  to  the 
model  as  an  evaluator  of  his  new  insights.  It  is 
conjectured  the  model  design  will  never  be 
stabilized,  but  continue  to  develop  in  response  to 
the  manager's  new  understanding. 

Schoderbek , Schoderbek , and  Kefalas  C16J  posed  a  systems 
science  paradigm  which  can  be  used  -for  problem  solving  with 
simulation.  First,  conceptualization,  where  the  system  being 
studied  is  defined,  boundaries  set,  restrictions  applied, 
and  measures  of  effectiveness  identified.  The  system  is 
analyzed  as  to  its  place  and  interaction  within  it's 
environment.  An  output  of  the  conceptualization  phase  of 
simulation  is  a  flow  diagram  linking  all  the  major  pieces 
into  an  accurate  picture  of  the  working  system.  Next,  the 
analysis  and  measurement  phase  wherein  the  system  is 
expressed  in  quantifiable  terms  enabling  measurement  of  the 
changes  that  will  occur  when  the  system  is  manipulated.  This 
phase  also  entails  structuring  the  problem  solving  technique 
to  measure  and  analyze  the  changes  under  different 
conditions  imposed  on  the  system.  Finally,  computerization 
involves  describing  the  system  using  a  simulation  language, 
the  source  code,  and  running  this  code  on  a  compatible 
computer  to  generate  results.  These  three  steps,  are 
iteratively  refined  as  the  simulation  model  is  developed. 
For  instance,  while  translating  the  model  into  a  computer 
source  code,  a  problem  may  arise  in  the  logic  flow  of  the 
original  model.  The  analyst  must  go  back  to  the  conceptual¬ 
ization  phase  and  attempt  to  redesign  or  reformulate  the 
model  and  go  through  the  3-phased  process  again  [17] . 
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A  popular  simulation  language  is  Q-Gert ,  developed  by 
Dr.  Alan  B.  Pr i tsker  as  a  "network  modeling  vehicle  and 
computer  analyst  tool  [143."  The  language  is  a  generaliza¬ 
tion  of  PERT  and  an  extension  of  GERT,  two  specialized 
simulation  languages,  enabling  queuing  and  decision  capa¬ 
bilities  to  be  analyzed  by  computer  simulation.  Q-Gert  has 
been  successfu  1  1  y  used  in  studying  manufacturing,  service 
and  defense  systems.  "It  provides  engineers,  business  ana¬ 
lysts  and  operation  researchers  with  a  graphical  vehicle  -for 
modeling,  analysis,  and  communication  [143."  Q-Gert  net¬ 
works  are  models  o-f  systems  consisting  o-f  activities, 
services,  and  queues.  Through  computer  simulation  using  Q- 
Gert,  problem  solving  and  risk  analysis  can  greatly  enchance 
the  accuracy  and  reliability  o-f  in-formation  available  to  the 
decision  maker. 

Q-Gert  is  used  in  all  three  phases  o-f  the  system 
science  paradigm.  First,  in  the  conceptualization  phase,  the 
logic  -flow  layout  o-f  the  system  is  represented  using  Q-Gert 
symbols  which  speci-fies  relationships  between  parts  of  the 
systems  and  the  overall  flow  pattern  through  the  system.  The 
logic  flow  diagram  is  in  a  form  enabling  the  analyst  to 
communicate  to  others  his  concept  of  the  system's  structure. 
Feedback  from  the  decision  maker  and  acquired  knowledge 
about  the  system,  may  necessitate  a  change  to  the  model. 
This  change  may  entail  redefining  relationships,  thus, 
changing  the  logic  flow  diagram  to  reflect  the  modified 
version  of  the  system.  In  the  analysis  and  measurement 
phase,  the  Q-Gert  language  allows  specification  of  distribu- 


t  i  ons  de-fining  the  transaction  -flow  patterns  through  the 


system,  ie.  rates  o-f  -flows  between  services,  combinations 
o-f  servers  at  activities,  or  queue  space  available  prior  to 
an  activity.  Finally,  the  graphical  symbology  o-f  the  net¬ 
work  is  manually  translated  into  Q-Gert  computer  source  code 
to  be  run  on  a  computer  system  able  to  handle  the  entire  Q- 
Gert  Analysis  program. 

From  the  authors'  personal  experiences,  the  translating 
o-f  the  symbology  to  computer  code  is  tedious,  time  consuming 
and  o-f  ten  riddled  with  input  errors.  Through  the  refinement 
process,  even  if  the  computer  source  code  is  accurate  for 
the  original  model,  i ncorpor at i ng  any  changes  will  again  be 
susceptible  to  input  errors  and  the  resultant  time  spent 
debugging  the  computer  source  code. 

Gcaphics^.  Simula  lion  and  Uxe.  Mlcx.QComp.ulac. 

Computer  aided  design  (CAD)  has  been  used  by  engi¬ 
neering  disciplines  since  the  middle  1960's.  Architectural 
engineers  use  CAD  to  design  building  layouts  i ncorpor at i ng 
other  computer  analysis  programs  to  evaluate  layouts  against 
existing  regulations,  and  building  codes  C 21 1 .  With  the 
ability  to  change  layouts,  testing  different  room  sizes, 
window  and  door  placements  and  even  construction  materials, 
the  designers  can  ''optimize''  the  layouts.  Using  CAD  in 
conjunction  with  analysis  programs  that  compute  material 
and  labor  costs  enables  the  arch i tec tur al  engineers  to 
accurately  estimate  the  total  cost  of  a  design.  Utilizing  an 
editing  capability,  changes  can  be  made  to  a  desion  and  the 
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analysis  accomplished  in  minimal  time  C  4  3 .  Circuit 
designing  also  prospered  through  the  use  o-f  CAD.  Electrical 
engineers  conceptualize  circuits  then  simulate  their  poten¬ 
tial  capabilities  with  additional  analysis  programs  [8]. 
Time  is  a  vital  commodity  saved  by  using  CAD.  Another  advan¬ 
tage  that  emerged  by  combining  CAD  and  analysis  programs  is 
the  ability  to  construct  and  test  complex  structural  designs 
using  only  computers  without  having  to  actually  build  a 
scale  model  or  -full  scale  prototype  for  testing,  again 
saving  time  and  money  C  2 1 3 .  The  use  of  CAD  in  numerous 
engineering  disciplines  is  expanding  rapidly;  however,  CAD's 
use  by  operation  researchers  is  virtually  nonexistent. 

Use  o-f  computer  graphics  by  operation  analysts  is 
predominantly  the  depiction  o-f  results  o-f  the  analysis 
consisting  o-f  graphs,  charts  and  tables  [22].  Computer 
graphics  has  not  been  used  to  develop  the  computer  models  in 
the  conceptualization  phase.  The  capability  to  instantly 
express  visually  the  analyst's  ideas  would  save  both  his 
and  the  client's  time.  Enhanced  communications  through  quick 
pictorial  representation  o-f  the  model  being  analyzed  also 
helps  eliminate  discrepancies  between  the  client's  and 
analyst's  concept  o-f  the  system  E143.  This  interaction 
enables  a  better  model  to  be  developed  and  helps  the  client 
see  how  his  system  'really'  -functions. 

The  front  end  use  of  computer  graphics  in  operations 
research  techniques  is  limited  although  its  potential  use  in 
simulation  is  most  pronounced.  This  research  will  develop  a 
useful  tool  for  modeling  systems  using  the  symbolic  Q-Gert 
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simulation  language.  Though  use  of  microcomputers,  we  will 
make  this  tool  accessible  to  the  analyst  and  easy  to  use. 
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Today's  operations  researchers  must  have  access  to  a 
computer  to  effectively  analyze  complex  problems.  Often  the 
ability  to  utilize  mainframe  computers  is  cumbersome,  due 
partially  to  limited  terminal  access,  making  modeling  and 
analyzing  a  slow  process  171.  With  the  advent  of  the  micro 
computer,  the  gap  between  simple  calculators  and  mainframe 
computers  has  been  bridged  [183.  The  micro  computer's  flexi¬ 
bility  allows  the  computer  to  be  used  as  a  stand-alone 
system  for  solving  small  problems  or  as  an  intermediary  to  a 
mainframe  computer  acting  as  a  terminal  linked  to  the 
larger  system.  Used  as  a  remote  terminal,  ready  to  run 
'source'  programs  developed  on  the  microcomputer  are  sent  to 
the  mainframe  computer  for  execution.  The  main  frame 
computer  with  its  large  memory  capacity  can  run  the  program 
and  send  the  results  back  to  the  mi crocomputer  or  print  the 
output  at  a  central  site.  The  linkage  between  the  micro¬ 
computer  can  be  accomplished  through  telephone  lines  or  a 
direct  connect  system.  With  a  mi crocomputer  at  his  disposal, 
the  analysts'  desk  becomes  a  complete  work  station  with  the 
accessibility  of  a  calculator  and  the  power  of  a  mainframe 
computer  at  his  disposal  [13. 

Our  purpose  is  to  use  the  mi crocomputer  as  an  inter¬ 
mediary  between  the  analyst  and  the  mainframe  computer  in 
simulation  applications.  Advantages  of  using  a  micrccom- 


puter  includes  minimising  me.  i  nframe  computer  usage  in  the 
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designing,  editing,  and  debugging  stages  of  programming 
[183.  A  main-frame  computer  is  not  needed  to  process  the 
graphics  and  generate  source  code,  a  microcomputer  can 
handle  this  task.  The  computer  source  code  can  then  be  sent 
-for  execution  to  a  main-frame  computer  when  complete  or  at  a 
later  time. 


■Simulation  is  the  development  and  use  o-f  models  to  aid 
in  the  evaluation  o-f  ideas  and  the  study  o-f  dynamic  systems 
and  situations  [13]."  Presently  the  use  o-f  microcomputers 
in  simulation  is  limited  to  small  repetitive  analytical 
problems.  Each  model  developed  is  -for  a  spec  i -fie  analysis 
and  is  composed  o-f  mathematical  expressions  and  mani¬ 
pulation  C153.  There  is  not  a  power-ful  simulation  analysis 
program  such  as  Q-Gert's  available  to  run  on  a  m i crocompu ter 
because  o-f  the  lack  o-f  memory  capability  that  large  simula¬ 
tion  programs  demand. 


Graph ics  and  Simulation 

"A  picture  is  worth  a  thousand  words"  has  ample  appli¬ 
cability  to  engineering  work.  A  schematic  is  certainly  more 
meaning-ful  -for  use  in  communicating  ideas  between  engineers 
and  managers  than  a  complicated  mathematical  -formula  ex¬ 
plaining  the  same  ideas.  The  schematic  can  -focus  attention 
on  relationships  and  interdependencies  more  quickly.  A 
manager  not  familiar  with  the  intricacies  of  model  building 
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can  visually  comprehend  the  ideas  being  explained. 

In  simulation,  computer  generated  graphics  is  used  only 
in  the  presentation  of  output  C93.  Histograms,  graphs  and 
bar  charts  are  used  to  explain  the  results  of  the  simula¬ 
tion.  Understanding  the  output  o-f  the  model  is  paramount  to 
a  decision  maker,  but  a  graphic  representation  o-f  the  system 
being  modeled  is  equal  1  y  important  to  his  understanding  o-f 
why  the  particular  results  were  obtained.  Computer  graphics 
incorporated  as  a  means  o-f  input  to  the  simulation  program 
will  give  the  decision  maker  a  schematic  of  the  system  as 
well.  Computer  graphics  can  be  used  effectively  for  concep¬ 
tualizing  system  designs,  communicating  with  clients,  as 
well  as,  input  to  a  computer  analysis  program. 
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The  -foundation  o-f  any  Q-Gert  simulation  is  the  network 
depiction  o-f  the  -flow  o-f  transactions  through  the  system.  As 
changes  or  alternatives  are  considered,  the  analyst  should 
modi-fy  the  graphical  representat  i  on  o-f  the  network  then 
change  the  computer  source  code.  The  manual  translation  o-f 
Q-Gert  symbology  into  the  source  code  -frequently  results  in 
errors  due  to  the  rigorous  input  requirements  of  the  Q-Gert 
language.  The  ability  to  develop  and  then  change  a  network's 
graphic  display  with  automatic  generation  of  the  corres¬ 
ponding  computer  source  code  necessary  to  run  analysis 
programs  would  create  substantial  time  savings  for  an 
anal yst . 


fiasaacch  Quest i  QD  % 

This  research  effort  will  attempt  to  eliminate  the 
basic  problems  discussed  above  answering  the  following: 

1.  Using  computer  aided  design  techniques,  is  there  a  way 
of  placing  Q-Gert  symbols  on  a  microcomputer  screen  using  a 
graphics  tablet? 

2.  Using  an  appropriate  programming  language,  is  it  pos¬ 
sible  to  automatically  generate  Q-Gert  computer  source  code 
from  the  graphical  representation  created  in  question  1? 

3.  Is  it  possible  to  edit  a  previously  drawn  network  and 
incorporate  the  same  changes  to  the  computer  source  code? 


vs* 
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The  overall  objective  is  to  successfully  execute  a  Q- 
Gert  model  whose  computer  source  code  was  automatically 
generated  using  computer  aided  graphics.  The  source  code 
generated  will  be  sent  to  AFIT's  CYBER  computer  system  to 
run  the  Q-Gert  Analysis  program. 

The  research  sub-objectives  are: 

1.  Using  a  graphics  tablet  with  an  Apple  11+ 
microcomputer,  represent  a  Q-Gert  network  on  the  computer 
screen . 

2.  Using  Pascal,  convert  the  graphical  representation  on 
the  screen  into  a  text  file  containing  the  complete  and 


o 


accurate  Q-Gert  source  code. 

3.  Edit  a  previously  drawn  Q-Gert  network  and  update  the 
appropriate  text  -file  containing  the  source  code 
automatically.  This  will  necessitate  a  save  and  reload 
capabi 1 i ty . 

4.  Send  a  text  -file  to  the  CYBER  and  successfully  execute 
the  simulation  model. 

It  would  be  desirable  to  include  the  full  range  of  Q- 
Gert  symbols  in  this  effort.  However,  due  to  the  complexity 
of  some  symbols  and  the  limitation  of  time,  not  all  of  the 
symbols  may  be  included.  It  is  the  intent  of  this  effort  to 
achieve  all  of  the  afore  mentioned  objectives  on  at  least  a 
subset  of  Q-Gert  symbols. 
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This  research  effort  will  use  computer  aided  design  to 
draw  a  Q-Gert  network  on  the  high  resolution  screen  of  an 
Apple  11+  mi crocomputer .  At  the  same  time,  Pascal  is  used  to 
develop  a  data  base  which  will  be  partial!/  built  by  the 
user  answering  questions  presented  on  another  screen. 
Finally,  the  data  base  will  be  manipulated  to  produce  the 
-finalized  source  code  which  can  be  sent  via  telephone  lines 
to  the  CYBER  main-frame  computer  which  will  run  the  Q-Gert 
Analysis  program. 

A  listing  o-f  the  equipment  needed  to  run  this  program 
i  s  as  -f  ol  1  ows : 

1.  Apple  II+,64k  RAM,  two  disk  drives 

2.  M  it  R  Enterprises  Sup '  r '  term  i  nal  board  in  slot  M3 

3.  Apple  Graphics  Tablet  in  slot  #5 

4.  Apple  Pascal  operating  system 

5.  Two  mon i tors 

6.  Modem  to  communicate  with  a  mainframe  computer 
Gcaphlcs  Xahl el . 

The  Apple  Graphics  Tablet  is  a  device  that  converts  the 
position  and  movement  of  a  special  pen  into  numbers  which 
the  computer  can  understand.  The  software  associated  with 
the  tablet  tells  the  Apple  computer  how  to  draw  shapes, 
lines,  and  letters  on  the  high  resolution  graphics  screen 
using  the  information  input  from  the  tablet.  These  programs 
turn  the  combined  computer  and  tablet  system  into  a 
sketchpad  or  engineer's  drawing  board.  This  particular 


graphics  tablet  is  primarily  designed  to  work  in  a  BASIC 
language  environment  utilizing  Applesoft  programs  tor- 
displaying  the  drawings  on  the  high  resolution  graphics 
screen  C103.  In  this  capacity,  there  can  be  no  mixing  of 
graphics  and  text  needed  to  completely  illustrate  a  Q-Gert 
network  without  additional  software.  Apple  Pascal,  however, 
has  this  capability  with  Tur t 1 egraph i cs . 

Ease a 1 . 

In  addition  to  the  drawing  functions  inherent  in  Apple 
Pascal,  a  sophisticated  computer  language  is  needed  capable 
of  handling  the  task  at  hand.  Due  to  the  anticipated  size  of 
the  program  and  type  of  data  structure  needed,  Apple  Pascal 
was  considered  the  appropriate  computer  language  to  use. 
Apple  Pascal  has  two  memory  conserving  capabilities  that  are 
essential  to  execute  large  programs  on  microcomputers  with 
a  limited  amount  of  memory  available. 

After  the  Apple  Pascal  system  is  loaded  into  the 
computer,  the  memory  available  to  execute  a  Pascal  program 
on  the  Apple  II  is  2flk  of  random  access  memory  (RAH).  Apple 
Pascal  has  structures  available  to  the  user  called  units 
that  need  not  reside  in  memory  unless  they  are  being  used 
[23.  Each  unit  is  a  collection  of  procedures  and  functions 
compiled  separately  from  the  main  program.  Unlike  standard 
Pascal  procedures  or  functions,  a  unit  can  exist  separately 
from  the  body  of  the  main  program  text  and  still  be  linked 
to  a  Pascal  program's  object  code  at  run  time.  The  power  of 
a  unit  lies  in  its  ability  to  house  multiple  procedures  or 


■functions,  built  in  Pascal  or  assembly  language,  under  one 
roof.  All  o-f  these  procedures  and  -functions  are  available 
•from  within  a  Pascal  host  program.  Additionally,  units  may 
be  nested  within  each  other.  By  developing  the  program  in 
parts,  each  part  can  be  made  a  unit;  and,  when  a  procedure 
or  function  within  a  unit  is  needed  by  the  main  program, 
only  then  will  the  unit  come  into  the  computer's  memory  thus 
minimizing  the  memory  required  to  run  the  program.  When  the 
unit  is  no  longer  needed,  it  can  be  removed  from  memory 
until  it  is  needed  again. 

The  other  major  reason  for  selecting  Pascal  is  the  use 
of  the  dynamic  data  structure  called  linked  lists  used  in 
conjunction  with  record  data  types  [6].  A  record  is  similar 
to  an  array  in  that  they  both  can  represent  a  group  of 
elements  with  a  common  name.  However,  while  the  elements  of 
an  array  must  all  be  of  the  same  data  type;  integer,  real, 
string,  etc.,  the  elements  of  a  record  may  be  a  mixture  of 
data  types.  Within  the  same  record,  one  field  may  be 
designated  real  while  another  may  be  designated  as  a  string 
or  even  another  record.  Individual  fields  of  a  record  can  be 
accessed  and  similar  records  can  be  linked  together  for 
sequential  access  through  a  pointer  system. 

The  use  of  arrays,  that  are  fixed  in  dimension,  sets  a 
limit  on  the  size  of  the  network.  Alleviating  this  limita¬ 
tion,  the  linked  list  data  structure  is  expandable  as 
needed.  For  instance,  if  a  network  initially  had  5  regular 
nodes  the  number  of  components  in  the  linked  list  would  only 
be  3.  If  the  network  was  expanded,  additional  components 


would  be  added  to  the  linked  list  only  as  required.  It 
arrays  were  used,  memory  would  be  allocated  at  the  outset  of 
program  execution.  It  the  dimension  ot  an  array  were  set  at 
50  nodes  but  only  5  were  used,  the  memory  reserved  would 
still  accommodate  50  nodes  that  the  array  spec i ties.  This 
may  necessitate  limiting  the  size  ot  the  program  or  units 
called  by  the  program  during  execution.  The  linked  list  data 
structure  is  available  in  Apple  Pascal  and  saves  memory  over 
the  conventional  array  structure. 
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The  concept  ot  joint!-  using  a  graphics  tab  la*  and  a 
mi crocompu ter  is  not  new.  Dan  Sokol  s  article  Cl?]  outlines 
his  use  of  interactive  graphics  -for  developing  electrical 
circuit  schematics.  Our  program  goes  beyond  just  schematic 
displays,  it  will  create  a  Q-Gert  network  and  generate  Q-Gert 
source  code  from  the  user's  graphical  selections  and  solicited 
inputs.  The  first  step  involved  interfacing  the  graphics 
tablet  and  the  Pascal  operating  system  enabling  information  to 
be  passed  between  the  two.  Once  accomplished,  the  programming 
to  accomplish  the  stated  objectives  was  started. 

The  system  was  developed  in  three  parts.  First,  the  Q- 
Gert  symbols  to  be  displayed  were  developed  in  program 

INITLOGIC.  Then,  program  Q6ERTNET  was  developed  to  draw  the 
network;  and,  create  and  edit  the  data  structure.  Finally, 
program  CODEGEN  transforms  the  information  contained  in  the 
data  structure  to  a  text  file  consisting  of  the  desired 
computer  source  code.  Figure  1  depicts  the  macro  view  of  the 
source  code  generation  system.  INITLOGIC  creates  a  file  of 
shapes  which  QGERTNET  accesses  to  draw  the  network  on  the  high 
resolution  screen.  Then,  QGERTNET  creates  files  of  symbols 
records  which  CODEGEN  accesses  to  generate  the  Q-Gert  source 
code . 

Two  programming  concepts  built  into  the  system  are 
expandi bi 1 i ty  and  user  friendliness.  The  primary  requirement 
to  permit  future  expansion  is  the  conservation  of  computer 
memory.  As  the  program  grows,  available  computer  memory 
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Macro  Uiew  o-f  Source  Code  Generation  System. 


decreases  unless  steps  are  taken  to  minimize  the  required 

memory  to  execute  the  program.  To  conserve  memory,  most 

procedures  are  contained  in  units  which  remain  in  computer- 

memory  only  when  a  procedure  within  the  unit  is  being 

executed.  Also,  the  program  is  user  -friendly.  Through  timely 

and  informative  prompts,  the  user  can  quickly  develop  a 

network  and  generate  the  source  code.  For  convenience,  an 

•  \ 

editing  capability  was  written  into  program  QGERTNET.  This 
facilitates  changing  the  network  design,  as  well  as, 
correcting  accidental  input  errors.  When  the  user  is  satisfied 
with  the  network  developed,  the  data  structure  can  be  saved  on 
diskette  to  redraw  the  network  or  generate  the  source  code  at 
a  later  time. 

The  following  discussion  will  briefly  explain  the  data 
structure,  layout  and  setup  of  the  Apple  Graphics  Tablet 
followed  by  the  the  logic  that  went  into  developing  each  of 
the  three  programs. 

Dadta  S±£iic±ux:£ 

Pascal  has  a  mechanism  for  creating  dynamic  variables 
which  are  defined  at  compile  time  but  only  created  during 
execution  of  the  program.  Program  QGERTNET  declares  records  as 
dynamic  variables.  Different  types  of  records  are  declared 
corresponding  to  the  different  Q-Gert  symbols.  Source  and 
regular  nodes  require  the  same  information  to  describe  their 
function  and  parameters  to  the  Q-6ert  Analysis  program;  there¬ 
fore,  these  symbols''  records  are  of  the  same  type.  Statistic 
and  sink  nodes  are  also  similar  to  each  other  while  queue 


nodes,  activities,  and  parameters  require  separate  record 
types  to  store  their  i  n -forma  t  i  on  .  Each  record  also  contains 
information  to  specify  the  symbol  and  its  location  on  the  high 
resolution  graphics  screen.  Figure  2  depicts  the  -fields 
within  each  type  o-f  record. 
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Record  Type:  PAR 


NEXT 

TIPE 

PARAM 
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PAR2 

PAR3 

PAR4 

COMMENT 

Figure  2.  Record  Fields 


Associated  with  dynamic  variables  are  pointers.  These 
variables  contain  the  address  in  memory  of  the  dynamic 


variable  it  references, 


Records  are  accumulated  into 


lists  by  having  each  record  contain  a  link  or  pointer  to  the 
next  record  in  the  list.  Using  these  dynamic  variables,  a 
data  structure  called  a  linked  list  is  built  that  can  expand 
or  contract  as  the  program  executes.  The  programer  does  not 
have  to  know  in  advance  how  long  the  list  will  be.  The  only 
size  limitation  is  the  amount  of  available  computer  memory. 
During  program  execution  using  this  data  structure,  the  user 
can  create  new  records  when  building  a  network,  change 
record  ■fields  when  editing,  or  destroy  records  when 
modifying  the  network. 

Each  type  of  record  is  kept  in  a  separate  linked  list. 
Reference  to  a  record  within  a  linked  list  is  not  by  name 
but  by  a  pointer.  To  keep  track  of  the  records,  unique 
pointers,  BASE< i )  and  NEXT < i ) ,  are  declared  for  each  list. 
NEXT <  i  >  A  is  the  record  within  the  particular  linked  list 
referenced  by  pointer  NEXT<i>.  BASE< i >  is  always  reset  to 
point  to  the  first  record  in  the  list  or  has  the  value  of 
NIL,  if  the  list  is  empty.  NEXT < i )  is  used  to  traverse  the 
list  to  locate  a  particular  record.  Additionally,  when  the 
program  creates  a  new  record,  it  is  added  to  the 
appropriate  list  and  linked  to  the  other  records  by  a 
pointer  field  <NEXT< i ) A .NEXT)  inherent  in  each  record. 
Figure  3  illustrates  the  addition  of  a  new  records  to  a 


new<NEXT< i > > »  create s  a  new  record  with  NEXT<i> 

pointing  to  it 

I  BASE(  i  )| - V 


record  1 


NEXT<  i  > 


NEXT< i )A.NEXT:*  BASE(i)  t  connect*  the  new  record  with  the 

other  record  in  the  list 


BASE< i ) 


record  1  NIL 


NEXT<  i ) 


BASE(i)i-  NEXT < i ) i  reset  BASE< i >  to  the  front  o f  the  list 


BASE< i ) 


Figure  3.  Adding  a  Record  to  a  Linked  List. 

To  -find  a  particular  record  within  a  linked  list,  the 
user  must  specify  the  -field  and  the  field's  value  to 
identify  the  correct  record.  NEXT< i )  initially  points  to  the 
first  record  in  the  list.  If  the  specified  field's  value  of 
this  record  is  not  equal  to  the  desired  record's  then 
NEXT< i )  is  reset  to  point  to  the  next  record  in  the  list.  To 
ensure  that  the  entire  list  is  interrogated,  after  searching 
the  first  record,  the  second  record  is  searched  pr i or  to 
advancing  the  pointer.  The  search  continues  through  the  list 
until  the  desired  record  is  found  or  the  interrogated 
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rec  or  d '  s  pointer  -field  is  NIL.  F  i  gu  re  4  i  1  1  u  s  t  r  a  t 
s$  ar  c  h  r  ou  tine  to  find  rec  or  d  2  wh  ose  -field  called  h 
equal  to  el emen  t  . 


Does  NEXT< i >A.here  ■  element? 


record  4 


record  3 


record  2 


record  1 


NEXT<  i ) 


if  not  then  does  NEXT< i )A .NEXTA  .here  ■  element  or 

NEXT<  i  >A  .NEXT  -  NIL 

if  not  then  NEXT(i)  j»  NEXT< i ) A .NEXT  i  set  the  pointer 

NEXT(i>  to  the  next  record 


record  4 


record  3 


record  2 


record  1 


NEXT< i ) 


and  again  NEXT<i>«»  NEXT< i )A .NEXT 


record  4 


record  3 


record  2 


record  1 


NEXT<  i ) 


Figure  4.  Traversing  a  Linked  List 


Pointers  can  also  facilitate  deleting  records  within 
the  linked  list.  To  locate  the  record  to  be  deleted,  the 
same  routine  just  described  is  used  except  the  pointer 
NEXTC i )  is  set  to  the  previous  record  in  the  list.  The 
pointer  field  of  this  record  is  reset  to  point  to  the  record 
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•for  accessing  particular  records  and  their  associated  -fields 
when  editing  and  generating  computer  source  code. 
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To  use  the  Apple  Graphics  Tablet,  it  must  be  able  to 
communicate  with  the  Pascal  operating  system.  Sokol 
included  in  his  article  £19]  the  assembly  language  program 
that  made  the  two  compatible.  The  reason  that  the  tablet 
would  not  inter-face  to  Pascal  was  the  Pascal  BIOS  (basic 
input/output  subsystem)  did  not  recognize  the  Graphics 
Tablet's  existence.  The  program  PAD .ASSY .TEXT  (Appendix  A) 
is  the  assembly  language  linkage  routine  which  reads  data 
•from  the  pad  and  trans-fers  i  t  back  to  Pascal  .  The  program 
contains  two  procedures:  SETUPAD  which  sets  the  tablet's 
de-fault  parameters;  and,  REAOPAD  which  reads  the  pad, 
■flashes  the  cursor,  and  scales  the  results.  Additionally, 
SETUPAD  initializes  the  inter-face  between  the  two  screens. 
The  symbols  are  dislayed  on  one  screen  using  a  40  column 
display  capability  while  all  text  is  displayed  on  the  other 
screen  utilizing  the  sup ' r ' term i nal ' s  80  column  capability. 
Internal  to  the  procedure  READPAD  is  a  requirement  to  store 
x  and  y  coordinates  read  from  the  graphics  pad  in  decimal 
locations  645  thru  648.  Pascal  recovers  this  data  using 
PEEK  and  POKE  commands  added  to  Pascal  by  a  unit  (Appendix 
B)  also  written  by  Sokol  £203.  Once  data  could  be  read  from 
the  graphics  tablet,  the  main  programs  could  be  written. 
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The  Apple  Graphics  Tablet  has  a  mylar  overlay  that  is 
placed  on  the  surface  of  the  tablet.  The  overlay  divides  the 
surface  of  the  Tablet  into  different  areas,  each  area  having 
a  different  meaning.  The  overlay  is  aligned  using  the 
Graphics  Tablet  software's  MENU  ALIGNMENT  program  which  is 
written  in  BASIC  C103.  Changing  to  Pascal  necessitates 
redefining  the  functional  areas.  This  is  done  in  SETUPAD. 
The  center  of  the  overlay  (Figure  6),  the  active  area, 
represents  the  high  resolution  graphics  screen.  The  bottom 
three  rows  of  the  Tablet  are  programmed  as  a  menu  for 
selecting  symbols  to  draw  or  commands  to  execute. 


I  I  I  I  I  I  I  I  I 

I  I  1  i  I  I  II  I 


ACTIVE 


I  I  I  I  I  I  I 


I  II  I 


[Hill 

iiiii 

niu 

Hill 

iiiii 


i  ii  i  i  i  i  i  i  i 


i  ii  i  i  i  i  i  i  i 


i  i  i  i 


1 

1 

1 

1 

1  ROW 

3 

OF 

SYMBOLS 

1 

1  1  1  II 

1 

1 

1 

1 

I  ROW 

2 

OF 

SYMBOLS 

1 

1  II  1  1 

1 

1 

1 

1 

|  ROW 

1 

OF 

COMMANDS 

1 

II  1  1  1 

Figure  6.  Graphics  Tablet's  Functional  Areas 


Ec.QQC.am  1N1ILQG10 


The  program  INITLQ6IC  creates  the  shapes  used  by 
program  QGERTNET  to  draw  the  Q-Gert  symbols.  INITLOGIC 
converts  groups  o f  strings  to  boolean  arrays  and  saves  the 
arrays  on  disk  in  a  -file  called  LOGI C .  CHARSET .  Each  named 
shape  is  a  square  array,  21  elements  on  a  side.  The  symbols 
must  be  large  so  text  can  be  printed  inside  their 
boundaries,  therefore,  each  node  is  made  up  of  more  than  one 
shape.  The  main  program  of  QGERTNET  loads  the  symbols  from 
LOGI C . CHARSET  into  memory  by  calling  procedure  GETSHAPES. 
When  a  drawing  command  is  selected,  procedure  MYPLOT 
combines  the  shapes  to  draw  the  desired  symbol .  Below  is  an 
illustration  of  the  shapes  NODEL  and  NODER  used  to  create  a 


regular  node. 
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Figure  7. 

Comb i n i ng 

'Shapes 

to  Form  a 

Regu 1 ar  Node . 

Besides  the  shapes  in  LOG I C . CHARSET ,  the  program 
utilizes  Tur  1 1  e  graph  i  cs'  MOL'ETO  command  to  draw  activity 
lines  connecting  the  nodes  in  the  network  by  moving  between 
two  specified  <x,y)  coordinates.  Tur t 1 egr aph i cs  is  also  used 
to  display  all  text  within  the  nodes  and  along  the  activity 
lines  on  the  high  resolution  screen, 

Program  flfiFgTNPT 

Once  the  shapes  had  been  saved,  the  program  QGERTNET 
was  written.  Depending  on  the  user's  command  selection, 
QGERTNET  will  display  the  network  on  the  high  resolution 
screen  and  gather  information  about  each  symbol  as  the 
network  is  built.  Figure  8  depicts  the  general  structural 
flow  through  QGERTNET. 

The  main  program  of  QGERTNET  contains  the  highest  level 
of  operations.  The  program  first  initializes  variables  and 
retrieves  the  shapes  from  the  file  LOGI C . CHARSET .  Next,  the 
tablet  is  readied  through  SETUPAD,  the  graphics  and  text 
screens  cleared,  and  then,  LISTMODE  provides  the  initial 
prompt  to  the  user.  The  program  then  enters  a  continuous 
loop  between  procedures  GETXY  and  MYPLOT .  Within  the  loop 
the  program  awaits  an  input  selection  from  the  user.  Figure 
9  contains  the  logic  flow  for  the  main  program  in 
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Figure  8.  General  Structure  Diagram  o-f  QGERTNET. 
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Figure  9.  Logic  Flow  of  QGERTNET' s  Main  Program. 

gedo:. 

Procedure  GETXY  is  called  by  GGERTNET's  main  program. 
It  is  used  to  determine  the  command  selected,  symbol  to  be 
drawn,  or  a  symbols'’  placement  on  the  high  resolution 
screen.  It  first  sets  up  memory  locations  for  the  <x,y) 


coordinates  from  the  user's  pen  placement  on  the  tablet. 


biELQI . 

In  procedure  MYPLOT,  all  the  drawing  and 
development  of  the  linked  lists  is  accomplished.  Prior 
to  entering  MYPLOT,  the  boolean  variable  UALIDXY  is  set; 
■false,  if  the  user  selected  a  command;  or  true,  if  the 
pen  was  pressed  in  the  active  area.  If  'UALIDXY  is  false, 
MYPLOT  calls  the  procedure  MENU.  From  within  MENU,  the 
program  executes  the  selected  command  or,  if  a  drawing 
command  was  selected,  returns  to  MYPLOT. 

Having  chosen  a  drawing  command,  MYPLOT  draws  the 
symbol  on  the  high  resolution  screen  positioned  by  the 
user's  pen  press  in  the  active  area  of  the  tablet.  If 
the  pen  is  positioned  outside  the  active  area,  UALIDXY 
is  set  false  and  the  command  terminates  returning  the 
user  to  MENU.  When  a  symbol  is  drawn,  a  record  of 
information  is  also  generated  for  the  symbol.  As  the 
network  grows,  each  record  is  created  and  added  to  the 
applicable  linked  list  by  procedures  SGUREGINFO  for 
source  and  regular  nodes,  STASININFO  for  statistic  and 
sink  nodes,  QUEINFO  for  queue  nodes,  or  ACTINFO  for 
activities  and  parameters.  The  following  is  the  logic 


flow  for  MYPLOT. 


U  p  on  entering  MY  PLOT,  V'A  L I  OX  Y  is  checked.  It  L'A  L I  DX  Y 
is  -false,  indicating  a  c  omman  d  was  selected,  p  r  oc  edu  r  e  MENU 
is  executed.  MENU,  -first,  determines  the  exact  command 
block  selected  -from  the  <x,y)  coordinates  passed  by  GETXY 
and  trans-forms  them  into  integers  XPOS  and  YPOS.  YPOS  is  the 
row  o-f  blocks  and  XPOS  is  the  command  block  within  the  row. 
Below  is  a  brie-f  description  o-f  the  programmed  -functions  in 
the  bottom  row. 


CLR  CODE  LOAD  SAVE  EXT  LIST  EDIT  CLR  LOCK  LOCK 
SCR  GEN  SCR  SCR  LOCK  X  Y 


Figure  12.  Bottom  Row  Menu. 


CLRSCR 


clears  the  high  resolution  screen  and  empties 
the  linked  lists 


CODEGEN  :  chains  the  program  CODEGEN  to  generate 
source  code 

LOADSCR  :  loads  the  linked  lists  -from  disk  into  the 
computer  memory  then  draws  the  network 


SAVESCR 


saves  the  current  linked  lists  to  disk 


LIST 


exits  the  program 

lists  the  available  Q-Gert  symbols 


EDIT  :  enters  the  editing  procedure 

CLR  LOCK  :  clears  the  x  and  y  locks 


LOCKX 


locks  the  x  axis 


LOCKY 


:  lock  the  y  axis 


I  -f  the  row  selected  is  either  the  second  or  third,  MENU 
sets  the  integer  variable  D  to  identity  the  symbol ,  then, 
calls  procedure  GETYPE .  GETYPE  displays  the  symbol  selected 
on  the  text  screen  employing  procedure  PRINTYPE.  Upon  MENU/s 
termination,  MYPLOT  is  exited  and  the  program  returns  to  the 
main  program  loop.  GETXY  is  executed  again  so  the  user  can 
position  the  symbol  on  the  high  resolution  screen  by 
pressing  the  pen  in  the  tablet's  active  area.  This  sets 
VALIDXY  true  and  re-enters  MYPLOT  to  draw  the  symbol.  Below 
are  the  drawing  commands  available  to  the  user. 


Figure  13.  Rows  1  and  2  o-f  Tablet's  Menu. 

SOU  s  draws  a  source  node  and  creates  a  SOUREG  record 
REG  :  draws  a  regular  node  and  creates  a  SOUREG  record 
STAT  :  draws  a  statistics  node  and  creates  a  STASIN  record 
ACT  :  draws  an  activity  line  and  creates  a  ACT  record 
QUE  :  draws  a  queue  node  and  creates  a  QUE  record 
SIN  s  draws  a  sink  node  and  creates  a  STASIN  record 

The  logic  -flow  -for  procedure  MENU  -follows. 


Figure  14.  Logic  Flow  o-f  Procedure  MENU. 


SQUBEGINEQ^  SIASININEQ^.  ACIINE£U  QUEXblEQ . 

After  the  user  selects  a  symbol  and  indicates  its 
intended  position  on  the  high  resolution  screen,  MYPLOT 
draws  the  symbol  by  combining  the  necessary  shapes,  then, 
calls  a  procedure  to  build  a  record  o-f  in-formation  about  the 
symbol.  Record  building  -for  source  or  regular  nodes  is 
accomplished  by  SOUREGINFO;  -for  statistic  and  sink  nodes  by 
STASININFOj  -for  queue  nodes  by  QUEINFO;  and  -for  activities 
and  parameters  by  ACTINFO.  Regardless  o-f  the  procedure,  i -f 
the  in-formation  is  available,  the  program  automatically 
•fills  the  -fields  within  the  record  else  the  user  is  asked 


to  input  the  i  n  format  i  on .  As  the  network  is  developed,  a  11 
source  and  regular  node  records  are  1  inked  together  •forming 
a  1  inked  list  which  grows  as  the  number  o-f  source  and 
regular  nodes  increases.  This  is  also  true  -for  statistic  and 
sink  nodes,  queue  nodes,  activities,  and  parameter  linked 
lists.  Records  within  the  linked  lists  can  later  be  saved 
to  disk,  edited  or  deleted. 

In  procedures  SOUREGINFO ,  STASININFO,  and  QUEINFO  the 
•fields  device  <D>,  x  location  (X),  /location  (Y)  ,  and  tipe 
<'Sou',  'Reg',  'Sta',  'Sin',  'Que')  are  all  au tomat i cal  1 y 
■filled  with  in-formation  obtained  -from  MENU,  6ETYPE,  and 
GETXY .  User  solicited  in-formation  -fills  the  remaining 
■fields,  such  as,  node  number,  initial  number  o-f  transactions 
to'  release  the  node,  subsequent  number  o-f  transactions  to 
release  the  node,  capacity  o-f  the  queue,  marking,  type  o-f 
statistics  to  gather,  and  comment,  i -f  any.  The  -fields 
pertaining  to  intermediate  or  advanced  Q-Gert  concepts  are 
set  to  the  de-fault  values,  -for  instance,  branching  ('D') 
and  attribute  choice  criterion  <'L'>.  Figure  15  lists  the 
-fields  applicable  to  each  Q-Gert  symbol  available  in  this 
program. 

In  the  procedure  ACTINFO,  both  the  in-formation  for 
activity  and  parameter  records  is  obtained.  These  features 
were  combined  since  the  designation  of  a  parameter  set  in  an 
activity  record  necessitates  the  generation  of  a  corres¬ 
ponding  parameter  record.  If  the  activity's  service  time 
distribution  is  constant  or  the  user  designates  a  duplicate 
parameter  set,  ACTINFO  will  not  request  information  to 
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Figure  15.  Available  Q-6ERT  Symbol  Input. 
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Figure  16.  Distributions  and  Parameter  Values. 
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generate  a  parameter  record.  To  create  an  activity  record, 
the  program  asks  -for  the  start  and  ending  nodes.  AC7INFQ 
searches  the  node  linked  lists  by  calling  SEARCH  to  locate 
the  two  records  and  get  the  (x,y)  coordinates  -from  the  nodes 
xlocation  and  ylocation  -fields.  These  coordinates  are  placed 
in  the  activity  record  -fields  SX  and  SY  -for  the  start  node 
and  EX  and  EY  for  the  ending  node.  Tur tl egraph i cs'  MOVETO 
command  draws  a  line  on  the  high  resolution  screen 
connecting  the  two  sets  of  coordinates.  The  user  must  also 
answer  the  prompts  to  fill  the  fields  pertaining  to  service 
distribution,  parameter  set  number,  activity  number,  number 
of  servers,  and  comment.  As  indicated  previously,  if  a 
distribution  other  than  a  constant  or  redundant  parameter 
set  is  specified,  ACTINFO  will  ask  the  user  for  the  four 
parameters  for  the  specified  distribution.  Figure  16  depicts 
the  distributions  available  in  Q-Gert  and  the  parameter 
values  that  must  be  specified. 

As  the  information  is  entered  into  the  symbols'  record 
fields,  the  same  information  is  written  to  the  high  resolu¬ 
tion  screen  within  the  symbol  or  centered  along  an  activity. 
Procedure  WRITEONSCREEN  uses  the  <x,y)  coordinates  of  a  node 
as  a  bases  for  placing  the  text  in  the  proper  locations. 
Activity  information  is  displayed  by  centering  the  text  in 
both  the  x  and  y  directions  along  the  activity  line 
connecting  the  two  nodes. 

Below  is  a  depiction  of  a  regular  node  and  the  place¬ 


ment  of  text  within  it. 
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Figure  18.  Logic  Flow  -for  Procedure  SOUREGINFO  c'con't) 


S&LlESCREELi . 

In  order  to  save  a  network,  procedure  SAVESCREEN  was 
developed.  It  may  be  called  directly  by  the  user  -from  the  com¬ 
mand  row,  or  indirectly  by  updating  changes  made  during  editing. 
When  saving  a  network,  only  the  records  within  the  link  lists 
are  retained.  The  user  must  indicate  a  -filename  -for  the  network 
which  becomes  the  pre-fix  to  the  -files  which  will  contain  the 
records  o-f  each  linked  list. 

SAUESCREEN  is  a  single  command  procedure  that  calls  pro¬ 
cedure  OUTDATA  and  passes  record  type  parameters  representing 
the  different  types  of  records  contained  in  the  link  lists. 
OUTDATA  opens  a  file  for  each  type  of  record  created  and  puts 
each  record  from  the  respective  linked  list  into  the  file  before 
closing.  A  file  is  built  for  source  and  regular  nodes,  statistic 
and  sink  nodes,  activities  and  parameters.  A  file  is  built  even 
if  no  records  of  that  type  exist.  Also  in  OUTDATA,  the  boolean 
variable  SAFETY  is  set  true  indicating  that  the  network  has  been 
saved  which  facilitates  exiting  the  program .  Below  is  the  logic 
flow  of  procedure  OUTDATA. 


Figure  20.  Logic  Flow  for  Procedure  OUTDATA. 
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UMD.SE  REEN . 

Procedure  LOADSCREEN  can  be  called  -from  MENU  or  program 
CODEGEN.  I -f  the  command  to  load  a  network  is  selected  -from 
the  tablet's  bottom  row,  then  MENU  calls  LOADSCREEN 
directly.  Frogram  CODEGEN  calls  LOADSCREEN  when  the  user 
wants  to  generate  source  code  on  a  previously  saved  network. 
LOADSCREEN' s  only  command  calls  procedure  INDATA.  The  para¬ 
meters  passed  to  procedure  INDATA  are  the  -files  o-f  records 
created  when  the  network  was  saved. 

INDATA  asks  the  user  to  input  the  -filename  o-f  .the 
network  to  load.  The  procedure  checks  to  see  i  -f  the  -files 
exists,  and  i-f  so,  opens  the  -files  pre-fix ed  by  the  -filename 
given.  The  records  within  each  -file  are  read,  then  either 
procedure  GRAFNODE  or  GRAFACTIL'ITY  are  called  to  draw  the 
corresponding  symbol.  GRAFNODE  accesses  each  node  record  for 
the  the  <x,y)  coordinates  to  position  and  draw  the  s-mbcl  on 
the  high  resolution  screen.  GRAFACT I V I TY  draws  the  acti"it> 


line  accessing  the  start  and  end  ( x  ,  y )  coordinate  -fields 
prey i ou s  1  y  s t or e d  w i  thin  the  ac  t  i  v  i  t y  r e c or ds .  The  text 
assoc i ated  wi th  the  symbol s  i s  retr i eyed  from  the  part i cul ar 
■fields  within  each  record  and  written  to  the  high  resolution 
screen  using  procedure  WRITEONSCREEN . 

GRAFNODE  and  GRAFACTIQITY  -follow  a  similar  logic  -flow 
to  MY  PLOT  -for  drawing  the  symbols,  and,  the  logic  -flow  of 
SQUREGINFO,  STASININFQ,  and  ACTINFG  -for  writing  the  text  to 
the  screen  except  the  inputs  are  obtained  -from  the  records 
rather  than  the  user.  The  logic  -f  1  ow  o-f  INDATA  -follows: 


F  i  qur  e 


Pr ocedur 


INDATA 


parame  tsrs  allows  sensitivity  analysis  of  the  system  to  be 
accompl i shed  quickly.  The  user  can  save  the  original  model 
then  modify  it  and  generate  the  new  source  code  needed  to 
evaluate  the  changes. 

The  editing  -function  is  selected  -from  the  tablet's 
command  row.  The  current  network  can  be  edited  directly  or  a 

i 

previously  saved  network  can  be  loaded  -for  editing.  Upon 
selecting  the  edit  command,  procedure  MENU  invokes 
procedure  EDITOR.  A-fter  identifying  the  network  to  edit 
through  prompts,  the  EDITOR  calls  procedure  LISTER  to 
display  the  available  options  shown  below. 

A)  Quit  the  editor 

B)  Source  node 

C)  Regular  node 

D)  Statistics  node 

E)  Activity 

F)  Sink  node 

G)  Parameter  card 

H>  Update  -  to  same  -filename 

Selecting  'B'  thru  'H'  will  call  procedure  OTHERWISE, 
while  selecting  'A'  will  call  SAVESCREEN  to  save  the  changes 
under  the  current  -filename  then  exit  EDITOR.  Based  on  the 
user's  choice  of  options,  procedure  OTHERWISE  prompts  the 
user  to  identify  the  particular  record  in  which  the  change 
will  be  made.  Associated  with  each  type  of  record  is  a  FIND, 
GOT  and  CHNG  procedure.  Depending  on  the  option  selected, 
either  FINDSOUREG,  FINDSTASIN,  FINDQUE,  FINDACT,  or  FINDPAR 
search  the i r*  r espec t i ve  linked  list  to  find  the  record  and 
display  its  contents  on  the  text  screen  through  the 
respective  GOT  procedures. 

The  FIND  procedures  first  ask.  if  the  record  will  be 


deleted.  1+  •  yes-  ,  the  record  is  eliminated  from  the 
respective  linked  list  by  directing  the  pointers  around  the 
specified  record.  When  the  linked  list  is  saved,  the  deleted 
record  is  not  read  into  the  file.  If  the  delete  response  is 
/no/,  the  respective  CHNG  procedure  is  invoked.  The  CHNG 
procedures  present  a  list  of  options  to  the  user  regarding 
the  fields  that  can  be  changed.  The  options  available, 
however,  only  include  fields  that  will  not  effect  the  layout 
of  the  network.  Fpr  instance,  the  user  cannot  change  the 
position  in  the  network  of  a  node,  he  must  first  delete  the 
old  node  and  redraw  it  in  the  new  position.  He  must  also 
delete  the  activities  that  may  have  been  associated  with  the 
node  since  the  SX ,  SY ,  EX,  and  EY  fields  may  no  longer 
coincide  with  the  new  position  of  the  node.  Once  a  change 
has  been  made,  selecting  option  'H'  will  update  the  network 
by  saving  the  records  (SAUESCREEN)  under  a  specified 
filename  and  displaying  the  updated  network  on  the  high 
resolution  screen  < LOADSCREEN) .  The  logic  flow  of  procedure 
EDITOR  fol 1 ows. 


Ec.OQC.am  CODEC  ELI 


Program  CODEGEN  culminates  the  development  of  the  Q- 
Gert  network.  This  program  uses  the  records  developed  in 
QGERTNET  to  produce  a  text  -file  containing  the  Q-6ert  source 
code.  CODEGEN  is  a  separate  program  because  o-f  it's  size  and 
and  the  timing  that  the  user  would  invoke  the  program.  The 
user  normally  generates  source  code  upon  completion  o-f  a 
network,  there-fore,  CODEGEN  can  be  called  -from  QGERTNET  to 
provide  uninterrupted  source  code  generation.  The  user  can 
also  enter  CODEGEN  as  his  -first  command  selection;  whereby, 
a  previously  saved  network  is  loaded  into  memory  and  the 
source  code  generated. 

CODEGEN  is  chained  to  QGERTNET  by  using  the  procedure 
call  SETCHAIN<NEXTFILE>  in  MENU.  Since  CODEGEN  is  a 
separate  program,  QGERTNET  must  be  exited  be-fore  invoking 
it.  As  soon  as  QGERTNET  is  terminated,  the  operating  system 
will  execute  the  -file  whose  name  is  the  value  o-f  NEXTFILE. 
NEXTFILE  in  this  case  is  the  program  CODEGEN. 

To  generate  the  source  code,  the  network's  record  files 
must  first  be  reloaded  into  memory  using  LOADSCREEN  which 
also  redraws  the  network  on  the  high  resolution  screen. 
Following  the  initial  setup,  a  series  of  administration 
questions  is  asked  regarding  the  network  in  procedure 
GENERALCARD.  Similar  to  generating  the  symbols'  records, 
any  data  that  can  be  obtained  from  previous  inputs  is 
automatically  inserted  into  the  general  card.  For  instance, 
procedure  STATSEARCH  counts  the  statistic  and  sink  nodes  in 


50 


the  network.  After  the  general  card  is  completed,  procedures 
SOURCESEARCH,  ACT I ^SEARCH ,  and  PARSEARCH  are  sequentially 
called  to  access  the  linked  lists'  information  to  create  the 
rest  of  the  input  cards  representing  the  Q-Gert  network. 

Each  record  type  contains  all  the  information  necessary 
for  generating  its  correspond i ng  Q-Gert  source  code.  The 
SEARCH  procedures  step  through  their  respective  link  lists 
building  a  string  variable  containing  the  complete  source 
code  for  each  node,  activity  or  parameter.  The  order  in 
which  the  strings  enter  the  text  file  is  important.  The 
source  node  strings  must  come  first;  the  start  node  string 
of  an  activity  must  precede  the  corresponding  activity 
string;  and,  sink  nodes  must  come  after  all  other  nodes  and 
activities.  The  parameters  strings  can  be  placed  either 
before  or  after  the  sink  node  strings.  With  these 
restrictions  in  mind,  the  source  node  strings  are  generated 
first,  followed  by  all  regular  node  strings,  then  statistic 
node  strings.  Next,  all  activity  strings  are  generated 
followed  by  parameter  strings,  and  lastly,  the  sink  node 
strings.  Figure  23  depicts  the  logic  flow  for  CODEGEN's  main 
program. 

As  a  cross  check,  the  source  code  is  presented  on  the 
text  screen.  When  the  CODEGEN  is  finished,  QGERTNET  is  re- 
executed  using  the  SETCHAIN  procedure  allowing  the  user  to 
begin  work  on  a  new  network  or  modify  an  existing  one. 


Figure  23.  Logic  Flow  For  CODEGEN's  Main  Program. 
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One  of  the  major  reasons  -for  selecting  Apple  Pascal  as 

i 

the  programming  language  -for  this  project  was  units.  Units 
allow  a  large  program  to  be  divided  into  smaller  parts  which 
are  entered  into  the  computer  memory  as  they  are  needed. 
This  is  a  similar  process  to  overlaying  -found  in  FORTRAN. 
This  capability  allows  a  compiled  computer  program  to  be 
several  times  1 arger  than  the  available  computer  memory 
allowing  increased  processing  and  display  capabilities.  In 
addition,  the  variables  common  to  all  procedures  are 
immediately  available,  which  is  not  the  case  in  other 
programming  languages,  such  as  BASIC. 

Related  procedures  were  combined  into  units.  UJhen 
Q6ERTNET  or  CODEGEN  calls  a  procedure  within  a  unit,  the 
entire  unit  enters  memory.  Using  the  compiler's  'noload-' 
option  <*N+*),  the  unit  stays  in  memory  only  as  long  as  a 
procedure  within  it  is  being  acted  upon.  The  units  were 
built  so  that  procedures  that  called  other  procedures  were 
grouped  together  to  minimize  the  memory  needed  to  execute 
the  program.  Below  is  a  listing  o-f  the  procedures  comprising 
each  unit. 


Unit  GLOBAL 

Unit  WRITE 

Unit  NODEINFO 

all  global 

Ur i teonscreen 

Souregi nfo 

var iablts 

Getshapes 

Stas i n i nf or 

Que i nfo 

Figure  24.  Listing  o-f  the  Procedures  Comprising 
Each  Program  Unit 
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Unit  INN 


Unit  OUT 


Un i t  ACT PAR 


Gr  a-fnodes 

Qutdata 

Par  i  n-f  o 

Graf ac  t i u i ty 

Savescreen 

Act  i  n-fo 

Indata 

Search 

Loadscreen 

Unit  EDITSR 

Unit  EDITSS 

Unit  EDITQUE 

Chngsoureg 

Chngstasi n 

Chngque 

Gotsoureg 

Gotstas i n 

Gotque 

Findsoureg 

Findsoureg 

Fi ndque 

Unit  ED I TACT 

Unit  EDITPAR 

Unit  EDIT 

Chngact 

Chngpar 

Otherwise 

Gotac  t 

Gotpar 

L i ster 

F i ndac  t 

Fi ndpar 

Editor 

Unit  LOADER 

Indata 

Loadscreen 


Figure  24.  Listing  o-f  the  Procedures  Comprising 
Each  Program  Unit  (con' t) . 
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This  program  will  arable  the  analyst  to  create  a 
limited  network  using  the  basic  concepts  of  Q-Gert. 
Available  to  him  are  source  nodes,  regular  nodes,  statistic 
nodes,  queue  nodes,  sink  nodes,  activities,  and  parameters. 
These  symbols  can  be  used  in  any  manner  subject  to  the  Q- 
Gert  Analysis  program  limitations  and  the  limitations  o-f 
this  program.  Figure  24  i$  an  example  o-f  a  network  display 
and  the  associated  source  code  that  can  be  created. 

Some  major  limitations  -for  the  Q-Gert  Analysis  program 
that  could  e-f-fect  the  size  o-f  a  network  are  as  -follows  [51: 

1)  Maximum  number  o-f  nodes  in  the  network  is  100. 

2)  Maximum  number  o-f  source  nodes  is  20. 

3)  Maximum  number  o-f  queue  nodes  and  select  nodes  is  50. 

4)  Maximum  number  o-f  servers  -for  an  activity  is  50. 

5)  Maximum  number  o-f  activities  in  the  network  is  100. 

6)  Maximum  number  o-f  concurrent  transactions  is  400. 

Besides  these  limitations,  this  program  is  -further 
restricted  due  to  the  limited  graphic  display  capability. 
The  user  can  only  create  small  networks  that  will  -f  i  t  on  the 
high  resolution  screen.  A  scrolling  capability  was  not 
incorporated  in  this  program;  there-fore  ,  the  network  can 
not  expand  beyond  the  40  column  display.  As  a  result;  the  Q- 
Gert  Analysis  program  limitations  above  should  not  pose  any 
size  constraint  on  the  network  that  can  be  built  using  this 
program . 

Another  limitation  exists  regarding  the  positioning  o-f 
nodes  relative  to  each  other  i -f  an  activity  connects  them. 
The  program  is  capable  o-f  looping  an  activity  where  the 


start  and  end  nodes  are  the  same.  However,  care  must  be 


GEN , USER , NET ,1,1 ,1984,1 , 1 
S0U,1 ,0,1 ,D,M,L* 

REG ,2,1 ,1,D, , L* 
STA,3,1,1,D,B,N,N,L* 
QUE,4,2,,D,F,N,N* 
ACT,1,1,C0,1. 5.1.1* 

ACT, 1 ,2, NO, 2, 2,1* 

ACT  ,1,3, EX, 3, 3.1* 
ACT,2,4,UN,4,4,1* 

ACT ,3»4,GA,5»5,1* 
ACT,4,5,L0,b,6,2* 
PAR,2,3,0,0.0,,0.«* 

PAR,  3,2. 5* 

PAR, 4,, 1.0, 3.0* 

PAR, 5,3. 0,0.0, 10. 0,0. 5* 
PAR, 6, 4. 0,2. 0,6. 0,0, 2* 
sin,5»i,i*d,i,n,n,l* 

FINISH* 


,10,50,5,E* 

SOURCE  NODE 
REGULAR  NODE 
STATISTIC  NODE 
QUE  NODE 
ACTIVITY  #1 
ACTIVITY  *2 
ACTIVITY  *3 
ACTIVITY  #4 
ACTIVITY  #5 
ACTIVITY  #6 
NORMAL  DIST 
EXPONENTIAL  DIST 
UNIFORM  DIST 
GAMMA  DIST 
LOGNORMAL  DIST 
SINK  NODE 


Figure  25.  Sample  Network  Display  and  Associated  Source  Code 


exercised  when  positioning  connected  nodes  because  the 
activities  are  drawn  based  on  straight  1 ines  connecting  two 
points,  it  an  ending  node  is  positioned  too  tar  behind  the 
start  node,  the  line  connecting  the  two  will  pass  through 
the  boundaries  of  both  nodes. 

Since  the  size  of  the  network  is  restricted  by  this 
program,  the  symbol  sizes  were  kept  as  small  a  possible 
commensurate  with  the  size  of  the  text  displayed  within  the 
nodes"'  boundaries.  The  -following  minor  limitations  are 
■further  imposed  on  the  users  o-f  this  program: 


1)  Node  numbers  available  are  between  1-99. 

2)  Initial  number  o-f  transactions  to  release  a  node  must  be 
between  0-9. 

3)  Subsequent  number  o-f  transactions  to  release  a  node  mus 
be  between  0-9  or  in-finity. 

4)  In-finity  is  displayed  within  a  node  as 


Since  the  program  is  oriented  more  to  analyzing  small 
PERT  networks  and  straight  ■forward  queuing  systems,  some 
analysis  capability  that  would  normally  be  available  have 
been  set  to  the  default  values.  Such  as,  there  is  no 
probabilistic  branching  nor  choice  criterion  within  the 
nodes  for  selecting  transac t i ons .  These  analysis 
capabilities  are  necessary  for  more  complex  simulations, 
but,  this  program's  development  has  only  incorporated  the 
basic  concepts  of  Q-Gert  simulation. 


% 


V  .  Concliis-Lans  aad  EacQmaiaai:aij.aaa 

A1  1  the  questions  raised  by  thi  s  r  e  sear  e  *  *  ; r  *.  -  - 

been  answered  aff  i  rmat  i  ve  1  y  .  Using  both  an  tipple  m 
and  the  Apple  Graphics  Tablet,  computer  aided  dee  gr, 
techniques  were  used  to  generate  a  Q-Gert  network.  With 
Pascal's  dynamic  linked  list  data  structure,  records 
containing  in-formation  about  each  symbol  are  created  ana 
stored  on  disk.  The  records  can  be  accessed  for  editing  or  tor 
generating  the  computer  source  code  representing  the  Q-Gert 
ne  twork  . 

To  use  this  program,  the  analyst  selects  from  a  menu,  the 
symbol  he  wishes  to  draw,  then,  positions  it  in  the  network. 
Answering  the  questions  asked  by  the  program  about  the  use  of 
the  symbol,  fills  a  record  representing  the  symbol.  From  the 
information  contained  in  the  records,  the  program  will  display 
the  symbols  making  up  the  network  on  the  high  resolution 
graphics  screen  and,  if  desired,  create  a  text  file  containing 
the  computer  source  code.  The  source  code  can  be  sent  to  a 
mainframe  computer  as  input  to  the  Q-Gert  Analysis  program 
giving  the  analyst  statistical  inferences  about  the  system 
s i mu  1 ated . 

Presently,  the  Q-Gert  network  can  consist  of  source, 
regular,  statistic,  queue,  and  sink  nodes;  activities;  and 
parameters.  These  symbols  comprise  the  basic  concepts  of  Q- 
Gert  and  can  be  used  to  develop  small  simulation  models  to 
both  analyze  the  system  and  present  a  graphical  representation 
of  the  system  to  portray  the  relationships  within  the  system. 


A  user's  man  u  a  1  i  s  c  on  t  a i n  ed  in  Ap  p  e  n  d  i  x  F  .  it  g  i  •>  e  s  a 
br i ef  descr i p t i on  of  each  command  and  steps  through  ex  amp i es 
to  help  the  user  learn  the  existing  capabil ities  or  the 
program . 

This  program  has  made  a  giant  stride  in  easing  the  burden 
of  creating  a  Q-gert  network  and  manually  translating  the 
graphical  symbols  into  computer  source  code.  But,  there  is 
still  much  that  can  be  done  to  -further  this  programs 
capabilities.  The  -following  are  some  suggested  areas  o-f 
i mprouemen  t . 

1.  The  -foremost  problem  that  needs  to  be  solved  is  the 
network  display  size  limitation.  Presently,  the  network  is 
•limited  to  the  size  o-f  the  high  resolution  graphics  screen. 
To  increase  the  display  capability,  a  scrolling  -function  is 
needed,  preferably  in  both  the  up/down  and  left/ right 
directions.  This  would  allow  the  network  to  expand  up  to  the 
Q-Gert  Analysis  program  limitations. 

2.  An  analysis  of  the  Pascal  program  may  suggest  programming 
refinements  which  may  be  more  efficient  and  thereby  able  to 
free  more  memory  to  expand  the  programs  capabilities. 

3.  Additional  Q-Gert  symbols  and  functions  can  be  added 
following  the  same  logic  as  presented  in  the  program  devel op- 
men  t  section  of  this  thesis.  In  general,  to  add  another 
symbol,  the  follow-on  programmer  must  add  the  following: 
shapes,  to  draw  the  symbol ,  to  program  INITLGGIC;  linked  list 
variables  to  unit  GLOBAL;  an  INFO  procedure  to  gather 
information  to  fill  the  symbol's  record,  associated  FIND, 
SEARCH,  and  GOT  editing  procedures,  additions  to  ACT  INFO;  and 


lastly,  a  SEARCH  procedure  in  program  CODE GEN  to  generate  the 
appropriate  source  code.  Care  must  be  taken  when  expanding  the 
p rogr am  to  c on t  i  nu e  the  merrier y  con ser v a t  i  on  principles  a  1  r  e ady 
in  the  program . 

4.  Sokol,  in  his  electrical  schematics  program,  had  a 
printing  routine  that  required  saving  the  graphics  display  on 
the  screen  to  a  tile  betore  the  display  could  be  printed. 
Since  our  program  does  not  save  the  graphics  display  to  disk, 
we  could  not  use  his  routine  to  print  the  network  created. 
The ret ore,  a  tol low-on  benetit  ot  a  printing  tunction  would 
give  the  analyst  a  hard  copy  ot  the  Q-Gert  network  he  created. 

5.  A  tinal  addition  that  would  benetit  the  display  capa¬ 
bilities  is  a  better  drawing  procedure  to  loop  back  to  a 
previously  drawn  node.  Currently,  the  program  can  loop 
backwards  only  so  tar  as  the  start  and  end  node  are  the  same. 
It  a  node  is  positioned  too  tar  behind  the  start  node,  the 
activity  line  will  cross  through  the  nodes  boundaries 
degrading  the  presentation.  Using  Tur t 1 egraph i cs  and  a 
geometry  oriented  tunction,  curved  1 ines  could  be  used  to 
connect  the  nodes  when  the  activity's  ending  node  is  well 
behind  the  start  node. 

One  tinal  word,  as  the  program  is  expanded  to  include 
select  nodes,  match  nodes,  vas  cards,  etc.,  the  order  in  which 
the  source  code  is  entered  into  the  text  tile  will  become 
important.  This  would  require  a  more  sophisticated  search 
routine  in  program  CODEGEN  to  ensure  the  proper  order  is 


maintained. 


Appendix  A 

Procedures  SETUPAD  and  READPAD 


assembly  language  linkage 
to  APPLE  GRAPHICS  TABLET 

20  Mar  80  -  Dan  Sokol 


procedure  SETUPAD .  external; 
procedure  READPAD;  external ; 


CFFF 

.EQU 

OCFFF 

• 

I 

TURN  OFF  ALL  ROMS 

MSLOT 

.EQU 

7F8 

• 

1 

ACTIVE  SLOT  *  Cn 

PADAT 

.EQU 

0CS00 

• 

9 

SLOT  ADDR  FOR  PAD 

MREAD 

.EQU 

0CEF9 

a 

9 

READ  THE  PAD 

CURSOUT 

.EQU 

0C8F0 

• 

9 

XOR  CURSOR  WD  SCALE  PAD  OUTPUTS 

QUA  IT 

.EQU 

0CCA1 

• 

9 

MIDEAST  COUNTRY  WITH  MUCH  OIL 

DEFAULT 

.EQU 

0CE90 

a 

9 

SETUP  PAD 

DEF4 

.EQU 

OCEEA 

a 

9 

SETUP  PAGE  AND  MPAGE  FOR  SCREEN  1 

DELAY 

.EQU 

80 

a 

9 

DELAY  FOR  QUAIT  (CURSOR  ON) 

.PROC 

SETUPAD, 0 ; 

DFLT 

LDA 

CFFF 

5 

ALL  ROMS  OFF 

LDA 

«0C5 

TAX 

STA 

MSLOT 

LDA 

PADAT 

LDA 

PADAT 

a 

9 

TURN  PAD  ON 

JSR 

DEFAULT 

LDA 

#20 

TAY 

JSR 

DEF4 

a 

9 

TURN  SCREEN  I  4  STREAM  ON 

LDA 

CFFF 

LDA 

#0C3 

STA 

MSLorr 

TAX 

a 

9 

RESET  SUP'R  TERM 

RTS 

.PROC 

READPAD, 0; 

READIT 

LDA 

CFFF 

a 

9 

ALL  ROMS  OFF 

LDA 

«0C5 

TAX 

STA 

MSLorr 

LDA 

PADAT 

LDA 

PADAT 

1 

PAD  ON 

JSR 

MREAD 

a 

9 

READ  PAD 

JSR 

CURSOUT 

• 

9 

FLASH  CURSOR  4  SCALE  X  4  Y 

LDA  #DELAY 

JSR  QUAIT 

JSR  CURSOUT 

LDA  CFFF 

LDA  «0C3 

STA  MSLOT  ;  RESET  SUP'R  TERM 

TAX 


ON  EXIT  >>>  PEN  UP/DOWN  -  640 

SCALED  X  (HIGH  BYTE)  -  646 
SCALED  X  (LOU  BYTE)  -  645 
SCALED  Y  (HIGH  BYTE)  -  648 
SCALED  Y  (LOU  BYTE)  -  647 


Unit  PEEKPOKE 


( ***************  PEEKPOKE  ****•**»**••******•»»•* 

*  Add*  the  command*  PEEK  and  POKE  to  Pascal .  * 

*  Intrinsic  unit  in  System. Library  * 

*  Dan  Sokol  3  Dec  79  * 

************************************************) 

<*ss+*> 

unit  PEEKPOKE;  intrinsic  cod*  23  data  24; 
interface 

procedure  P0KE(var  A DDR, DATA: integer) ; 
function  PEEK<var  ADDR: i nteger) : integer ; 
impl ementat i on 
type 

PA^packed  array! 0..1]  of  0..255; 

MAGIOrecord  case  boolean  of 
true:<INT : integer) ; 
false:<PTR:APA) ; 
end; 
war 

CHEAT: MAGIC; 

procedure  TEST<var  DATA: i nteger) ;  forward; 

procedure  POKE; 

begin 

TEST  <  DATA) ; 

CHEAT. IKT:»addr; 

CHEAT .  PTRA  [01  i“DATA ; 
end; 

function  PEEK; 
begin 

CHEAT.  IMF  :-ADDR; 

PEEK :*CHEAT .  PTRA [01; 
end; 

procedure  TEST; 
begin 

DATA :«abs< DATA  mod  256); 
end; 
begin 

<•  dummy  program  *) 


•f. 

£: 


Aooendi x  C 
Program  INITLOGIC 


(********************************************************* 

*  This  program  creates  the  file  / LOGIC. CHARSET 7  which  is  * 

*  used  by  QGERTNET.  Each  character  is  a  21  by  21  array  * 

*  (of  boolean  ..  i.e.  true  or  false  . .  1  or  0)  which  is  » 

*  used  to  draw  the  QGERT  symbols.  * 

*  Dan  Sokol  -  2  Apr  80  * 

*  Modified  by  Anderson  and  Conmeford  * 

*********************************************#***********) 


program  INITLOGIC; 

type  SHAPE  *  packed  arraylO . .20 ,0. .20]  of  boolean; 
NODEL ,  NODER,  ARROW, 


war 


QNODEL ,  QNQDER 
SHAPEFILE 
I,  J,  ROW 
BIT 


SHAPE; 

file  of  SHAPE; 

integer; 

boolean; 


(»•***»«#*«»•**•«  MAKESHAPES  *************************** 


*  Converts  strings  to  boolean  arrays.  This  procedure  is  * 

*  borrowed  from  GRAFDEMO.TEXT  on  APPLE3:  * 

*  Called  from  :  INIT1  THRU  INIT5.  * 

*********************************************************) 
procedure  MAKESHAPES< var  BITMAP : shape;  ST  s str » ng) ; 

begin 

for  Ji-1  to  length(ST)  do 
begin 

BIT!»(STCJ3<>'  '); 

BITMAP! ROW ,J-1 1 !-BIT } 
end; 

R0Ui*R0U-l; 

end; 

( »»*»»*»»•*»**  SAVE  SHAPES  ****************************** 

*  Saves  the  arrays  inadiskfile.  * 

*  Called  from  i  Main  program  loop.  * 

»»M*H»*«H**H*H*H#***»**#«#mm»**#***H**M»***) 


procedure  SAVESHAPES; 
begin 

rewr i te< SHAPEFILE, 'LOGIC. CHARSET' ) ; 

SHAPEFILE*  ARROWS  put  (SHAPEFILE) ; 

SHAPEFILE*  j-NOOEL;  put(SmPEFILE) ; 

SHAPEFI LE* :^I0DER ;  pu t ( SHAPEFILE) ; 

SHAPEFILE*! -QNODEL;  pu t( SHAPEFI LE) ; 

SHAPEFI LE*i«QNODER;  pu t( SHAPEFI LE) ; 
c 1 ose ( SHAPEFILE , 1 oc  k ) ; 
end; 

(**»»»»»»»»»»  INITl  *»H»H#H****H»*t*»M«H#M*H**M 

*  Creates  arrays  from  strings.  The  arrow  for  source/sink* 

*  nodes.  Called  from  ;  Main  program  loop.  * 
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ft*****************************#*********#*****##*##*#****) 


procedure  INITl; 
begin 

wr  i  te(' . ')  ; 

ROW: =20; 

MAKESHAPES (ARROW ; 

MAKESHAPES< ARROW , '  ')  5 

MAKESHAPES< ARROW, ' 

MAKE SHAPES (ARROW , '  ' )  5 

MAKE SHAPES (ARROW 

MAKE SHAPES ( ARROW , '  X  ' ) ; 

MAKESHAPES ( ARROW , '  X  ' > ; 

MAKESHAPES< ARROW , '  *  X  ') 5 

MAKESHAPES ( ARROW, '  XXX  ') ; 

MAKESHAPES (ARROW , '  XXX  '); 

MAKESHAPES ( ARROW , 'XXXXXXXXXXX  ' ) 5 

MAKESHAPES (ARROW , '  X  X  ' ) 5 

MAKESHAPES ( ARROW, '  XX 

MAKESHAPES (ARROW , '  X  '); 

MAKESHAPES  <  ARROW  ,'  X  ') ; 

MAKE SHAPES ( ARROW, " ‘  X  ') ; 

MAKESHAPES (ARROW  , '  ' ) ; 

MAKE  SHAPES ( ARROW ,'  ')  5 

MAKESHAPES( ARROW ' )  ; 

MAKESHAPES (ARROW ,'  '); 

MAKESHAPES( ARROW ,'  ' ) ; 

end) 

(*****•«**»#*  INIT2  ************************************ 

*  Creates  arrays  from  strings.  Left  half  of  nodes.  * 

•  Called  from  :  Main  program  loop.  * 


ft********************************************************) 


procedure  IN1T2; 
begin 

wr  i  t  e  ( ' . ' )  5 

ROW 5=20 ; 

MAKESHAPES (MODEL, ' 
MAKESHAPES (NODEL , ' 
MAKESHAPES(NODEL , * 
MAKESHAPES (NODEL , ' 
MAKESHAPES (NODEL , ' 
MAKE SHAPES ( NODEL, ' 
MAKESHAPES(NODEL , /  X 
MAKE  SHAPES ( NODEL , 'XX 
MAKESHAPES ( NODEL , 'X 

M&ifPCUAPrQfMnnri 


XXX 

XXX 

XX 

XX 

XX 

X 


XXXXXXXXXXXX') 

:  x  '> 

X 


X 

X 

X 

X 

X 

X 

X 


MAKESHAPES (NODEL,  X  X 

MAKESHAPES (NODEL , 'X  X 

MAKESHAPES (NODEL , 'XXXXXXXXXXXXXXXXXXXXX 
MAKESHAPES (NODEL , 'X  X 

MAkPSMAPPRfNnDFI  . 'V  Y 


'>1 

') 

') 


MAKE5HAPES ( NODEL , 
MAKESHAPES (NODEL , 'X 
MAKESHAPES ( NODEL, 'X 
MAKE SHAPES (NOD EL , 'XX 
MAKESHAPES (NODEL, '  X 
MAKESHAPES (NODEL, '  XX 
MAKESHAPE  S  ( NODEL , '  XX 


X 

X 

X 

X 

X 


(') 

') 

') 

') 

') 

') 
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MAKESHAPES(NODEL , '  XX  X  '); 

MAKESHAPES(NODEL , 7  XXX  X  '); 

MAKE SHAPES (NODEL , '  XXX  X  '); 

MAKESHAPES( NODEL , 7  XXXXXXXXXXXX ' ) ; 

end; 

(***»*»»#****  INIT3  ************************************ 

*  Creates  arrays  from  strings.  Right  hal-f  of  nodes.  * 

*  Called  from  :  Main  program  loop.  * 

•«»**»*••«»*••»**»»*»**»******«»*»»*«**»»***•*«»*»**«***«) 
procedure  IN1T3; 

begin 

write<  '.'); 

ROW  :*20 ; 


X 


X 
X 
X 
X 
X 
X 
X 
X 

'XXXXXXXX 
X 


XXX 
XXX 


') 

') 


XX 

XX 

XX 


MAKESHAPES(NOOER , 

MAKESHAPES (NODER , ' 

MAKESHAPES(NODER , ' 

MAKESHAPES(NOOER , ' 

MAKESHAPES<NODER , ' 

MAKE SHAPES (NODER , ' 

MAKESHAPES(NODER , ' 

MAKESHAPES< NODER , ' 

MAKESHAPES( NODER , ' 

MAKESHAPES (NODER, 

MAK ESHAPES < NODER, ') 

MAKESHAPES (NODER , ' 

MAKESHAPES(NODER, ' 

MAKESHAPES (NODER , ' 

MAKESHAPES (NODER , ' 

MAKESHAPES(NODER , ' 

MAKESHAPES (NODER, ' 

MAKESHAPES(NODER,/ 

MAKESHAPES (NODER , ' 

MAKESHAPES (NODER , ' 

MAKESHAPES (NODER , '3 
end; 

( *«»»*******#  INIT4  *«*»**»***«**#»*#»•*«••«**»***»**»* 

*  Creates  arrays  from  strings.  Left  half  of  queue  node. 

*  Called  from  :  Main  program  loop. 

procedure  IN1T4; 

a _ _  •  _ 


X 

X 

X 

X 

X 

X 

X 

X 


') 
') 
') 

X  ') 
XX') 
X') 
X') 
X'), 
X') 
X') 
XX') 
X  ') 


'XXXXXXXXXXXX 


XX 
XX 
XX 
XXX 
XXX 


') 

') 

') 


') 


r> 


1 


begin 
write('.'>; 

RQUt-20; 

MAKESHAPES(  QNODEL , ' 
MAKESHAPES( QNODEL , ' 
MAKESHAPES ( QNOOEL , ' 
MAKESHAPES ( QNODEL , ' 
MAKESHAPES ( QNOOEL , ' 
MAKESHAPES(  QNODEL,' 
MAKESHAPES <  QNODEL , ' 
MAKESHAPES ( QNODEL , ' 


MAKESHAPES(QNODEL,'X 


XXX 
XXX 
XX 
XX 
XX 
X 
XX 


XXXXXXXXXXXX') 5 


X 

X 

X 

X 

X 

X 

X 

X 


'>1 

'>5 

'>5 

'>1 

'>i 


MAKESHAPESC  QNODEL  /X  X  ' ) 

MAKESHAPESC  QNODEL , 'XXXXXXXXXXXXXXXXXXX  ' ) 

MAKESHAPESC  QNODEL,  'X  X  ') 

MAKESHAPES<  QNODEL ,  'X  X  '  > 

MAKESHAPESC QNODEL , 'XX  X  '  > 

MAKESHAPESC QNODEL , '  X  X  ') 

MAKE SHAPES ( QNODEL , '  XX  X  ') 

MAKESHAPESC QNODEL , '  XX  X  ') 

MAKESHAPES( QNODEL , '  XX  X  ') 

MAKESHAPES( QNODEL , '  XXX  X  ') 

MAKE SHAPES ( QNODEL , '  XXX  X  ') 

MAKESHAPES  < QNODEL , '  XXXXXXXXXXXX' ) 

end; 

C »•****»**»**  INIT5  »****»*«•**»**•**«**«*** 


ena; 

(#**»**»*«***  1NIT5  *********************************** 

*  Creates  arrays  -from  strings.  Right  half  of  queue  node.* 

*  Called  from  :  Main  program  loop.  * 

eft*******************************************************) 
procedure  INIT5; 

begin 

wr i teC ' . ' )  ; 

ROU:=20 ; 

MAKESHAPES <  QNODER , 'XXXXXXXXXXXX  '); 

MAKESHAPES <  QNODER , '  X  XXX  '); 

MAKESHAPES ( QNODER , '  X  XXX  '); 

MAKESHAPESC QNODER , '  X  XX  ') ; 

MAKESHAPES ( QNODER , *  X  XX  '); 

MAKESHAPESC  QNODER , '  X  XX'); 

MAKESHAPESC  QNODER , '  X  X  '); 

MAKESHAPESC  QNODER X  XX' ) ; 

MAKESHAPESC QNODER , '  X  X'  > ; 

MAKESHAPESC QNODER , '  X  X' ) ; 

MAKESHAPESC  QNODER , '  X  X'); 

MAKESHAPESC QNODER , '  X  X' > ; 

MAKESHAPESC  QNODER , '  X  X'); 

MAKESHAPESC  QNODER , '  X  XX' ) ; 

MAKESHAPESC  QNODER,'  X  X  X  '); 

MAKESHAPESC QNODER,'  X  XX  XX'); 

MAKESHAPESC QNODER,'  X  XXX  '); 

MAKESHAPESC QNODER,'  X  XXX  '); 

MAKESHAPESC  QNODER , '  X  XXX  XX'); 

MAKESHAPESC  QNODER , '  X  XXX  XX'); 

MAKESHAPESC  QNODER , 'XXXXXXXXXXXX  X')j 

end; 

C ##*##*«#**#*  MAIN  PROGRAM  ***#**#*************»*******; 
begin 


C  '); 

XXX  '); 

XXX  '); 
XX  '); 
XX  '); 
XX  '); 
X  '); 
XX'); 
X'); 
X'); 
X'); 
X'); 
X'); 
XX'); 
X  X  '); 
XX  XX  '); 
XXX  '); 
XXX  '); 
XXX  XX  ') ; 
XXX  XX'); 
C  X') ; 


y  e  «• 

writeC'ini tial izing  array'); 

INIT1 ;  INIT2;  INIT3;  INIT4;INIT5; 

writeln;  wr i telnC 'Wr i t ing  QGERT  symbols  to  disk'); 

SAMESHAPES ; 
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Program  QGERTNET 


<**S+*) 

unit  GLOBAL;  (*  tavtd  as  U GLOBAL .TEXT  *) 
intrinsic  cod*  26  data  27; 

interface 

(ft************************************************* 

•  Link  lists  to  store  inforamt i on  tor  QGERT  * 

*  source  code  generation.  * 

*»***#********************************************) 
type 

SHAPE  3  packed  array  CO . .20 ,0 . .20]  of  boolean; 

<»**»**  Source  and  Regular  nodes  ***************) 
LINK  3  ASOUREG; 

SOUREG  3  record 


NEXT 

:  LINK; 

DEVICE 

:  integer; 

XLOCATION 

:  integer; 

YLOCATION 

s  integer; 

TIPE 

i  string!33; 

NODENUM 

:  string!23; 

INITIAL 

:  stringUJ; 

SUBSEQUENT 

>  string! 13; 

BRANCHING 

t  string! 13; 

HARK 

>  string! 13; 

CHOICE 

:  string!13; 

COMMENT 

:  string!253; 

end; 


<«***••  Stat  and  Sink  nodes  #**#***#*»*****##**#> 
LINK2  3  ASTASIN; 

STAS IN  3  record 


NEXT 

i  L1NK2; 

DEVICE 

t  integer; 

XLOCATION 

i  integer; 

YLOCATION 

t  integer; 

TIPE 

:  string!33; 

NODENCJH 

:  string!23; 

INITIAL 

:  stringlll; 

SUBSEQUENT 

:  stringlll; 

BRANCHING 

:  string!  13; 

STAT 

:  stringlll; 

UPPER 

t  string!43; 

WIDTH 

:  string!43; 

CHOICE 

:  string!! 3; 

COWENT  :  string!253; 
end; 


<******  Activities 
LINK3  -  AACT; 

ACT  *  record 
NEXT 
DEVICE 
SX 
SY 
EX 
EY 

TIPE 
START 
IND 
DISTR 
PA  RAM 
ACTNUM 
SERVERS 
COWENT 
end; 


a****************************) 


LINK3; 
integer ; 
integer; 
integer ; 
integer; 
integer; 
str i ngC  31 ; 
str ingI2] ; 
str ing!23 ; 
str ing!23 ; 
str ing[43 ; 
str ingI2I ; 
str ing[23 ; 
str i ngC  253  ; 


(*#*«**  Parameter 
LINK4  *  APAR; 
PAR  *  record 
NEXT 
TIPE 
PARAM 
PARI 
PAR2 
PAR3 
PAR4 
CGrtiEKT 
end; 


Sets  ********»*»#*****#*.*»*»#*) 


:  LINK4; 
s  str ing(31 ; 

:  string[43; 
i  string!43; 

:  string[43; 

:  string!43; 

:  string!43; 

:  string!23I; 


< ******  Queue  nodes 
LINKS  »  AQUE; 

QUE  »  record 
NEXT  : 

DEVICE  : 

XLOCATI  ON  ? 

YLOCATION  : 

TIPE  : 

NODENUH 
INITIAL 

CAPACITY  : 

BRANCHING  : 

RANKING  : 

BALKERS  s 

UPPER  : 

WIDTH 
COMMENT 


******•«***»**»**»**«*««»***) 


LINK5; 
integer ; 
integer ; 
integer ; 
str ing[33; 
str i ngC  23 ; 
stringlll; 
stringtl] ; 
str i ngC 1 3 ; 
string! 1 3 ; 
str ing!23; 
str ing!43 ; 
str ing!43 ; 
str i ngC 25 3  ; 


6? 


V, 


V. 


end; 

SOUREGFIL 

_ 

file 

of 

SOUREG; 

STASINFIL 

= 

file 

of 

STASIN; 

ACTFIL 

= 

file 

of 

ACT; 

PARFIL 

*S 

file 

of 

PAR; 

QUEFIL 

= 

file 

of 

QUE; 

(***#**#**#****#*********************************** 
*  integer  variables  * 

*****#*»»*********»*»#»»*****»*»»»****»»*»»**»»***) 
var 


b.-: 


PEN, 

<*  pen  switch  <up  or  down) 

*) 

X,Y, 

<*  pen  position  on  pad 

*) 

0, 

(*  device  being  plotted 

*) 

LASTX ,  LASTY , 

(*  last  Device ,X,&Y  *) 

DMODE 

<*  mode  used  for  plotting 

*) 

integer; 


i  e 


<************************************************** 

*  QGERT  shape  names,  used  to  dram  QGERT  symbols  * 
***»***»*****»**#**»**#****»**»*******************) 

ARROU ,NODEL ,NODER , QNODEL , ON ODER  :  SHAPE; 
(*****#*******#*****«*«**********#***#**##********* 

*  disk  -file  o-f  QGERT  symbols  * 

»***»**»**«•*••**»***•*«*****»•*••****•**•********) 

SHAPEFILE  :  file  of  SHAPE; 
<*************#*#**»******************************* 


booleans 


- 

<• 


•a************************************************) 


UPDATE, 

LOCKX , LOCKY , 
SAFETY, 

VALIDXY, 

HELLFREEZESOVER, 

INVERSE, 

FINDER 


(*  checks  for  SAVE  in  EDITor 
<*  contains  the  LOCKed  x  or  y  coord. 
(*  checks  for  SAVE  on  exit 
<*  true  if  X  &  Y  are  on  screen 
<*  never  true  -  for  infinite  repeats 


*) 

*> 

*) 

*) 

*> 


> 


:  boolean; 

<************************************************** 
*  strings  and  things  * 

**************************************************) 


FILENAME,  DIH1Y, 

I  DENT, 

ACTSTRING, 
STRSELEC, ELEMENT, 
ST 


<*  for  LOAD  and  SAVE  names  *) 

<*  for  names  of  plotted  devices  ») 
<#  builds  Activity  data  structure*) 


in  EDITor  searches 
in  WRITEONSCREEN 


CH,SELEC,ANS 


<*  used 
<*  used 
string; 

<*  for  inputs  and  control 


*) 

*) 


*) 


char ; 


NEXT I ,0ASE1 

SLINK; 

<* 

SOU/REG  node 

pointers 

*) 

BASE2,NEXT2 

:L1NK2; 

<* 

ST A/S IN  node 

pointers 

*) 

BASE3.NEXT3 

:  L I NK  3 ; 

<* 

ACT  pointers 

*) 

pi  v> 

BASE4.NEXT4 

: LINK4 ; 

<* 

PAR  pointers 

*) 

,  V, 
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K 


•  ,  *  /•  /•  A  "> 

. 3tm tk  % .  f,r  ’i  k  3U  Vi  1  4 ,1  t* 


J 


<  a******************************************************* 


*  This  unit  is  linked  to  QGERTNET.  It  contains  the  * 

*  graphics  screen  text  writer  and  the  QGERT  shapes  * 

»  loader.  » 

*  Both  procedures  written  by  :  Dan  Sokol  * 


*  WRITEONSCREEN  modi -tied  by  :  Anderson  &  Commeford  * 
a*******************************************************) 

<**S+*) 

unit  RITE;  <*  saved  as  UWRITE.TEXT*) 
intrinsic  code  17; 

inter-face 

uses  TURTLEGR, GLOBAL; 

procedure  WRITEONSCREEN; 
procedure  GETSHAPES; 

imp! ementat i on 

<******************  WRITEONSCREEN  ******************* 

*  Overlays  strings  on  HIRES  screen  1.  * 

*  Text  can  be  horiz  or  vertical.  * 

*  Called  by  !  Units  NODEINFO ,ACTPAR,UIM^  * 

****»***************************»*********#**#********#) 

procedure  WRITEONSCREEN; 

var  I  :  integer; 

Cl  :  char; 
begin 

DMODE  :=»  6;  if  IWERSE  then  DMODE  :=  5; 
char  type (DMODE) ; 
pencol or (none) ; 
while  VAL1DXY  do  begin 
case  CH  of 

'h'/H':  begin  moveto(X,Y);  wstring(ST);  end; 

'v't'V'i  begin  for  I :=1  to  length(ST)  do 

begin  moveto(X,Y);  Cl :=STI II ;  wcha  r(Cl);  Y:=*Y 
end; 

end; 

VALIDXY  :=f  al se ; 

end;  (*  of  while  loop  *) 


(a*******************  GETSHAPES  ************************** 

*  Loads  the  shapes  -from  the  -file  ' LOGI C . CHARSET'  * 

*  Called  -from:  Main  program  loop.  * 

**5 ******************************************************) 

procedure  GETSHAPES; 
begin 

reset<SHAPEFILE, 'LOGIC. CHARSET' > ; 

ARROW :=SHAPEF I LEA ;  get(SHAPEFILE) ; 
NODELi=SHAPEFILEA;  get(SHAPEFILE) ; 
NODER:=SHAPEFILEA;  get(SHAPEFILE) ; 

QNODEL  .*=SHAPEFI  LEa  ;  ge  t  <  StWPEFI  LE) ; 

QNODER :=SHAPEFI LEA ; 
c 1 ose  <  SHAPEF1 LE) ; 
end; 


begin  end. 


( ******************************************************** 

*  This  unit  is  linked  to  QGERTNET.  It  contains  the  * 

*  the  procedures  which  build  the  data  structure  by  ask-  * 

*  ing  the  user  questions.  It  has  procedures  -for  the  * 

*  source/regular  nodes,  stat/sink  nodes,  and  queue  nodes* 

*  Written  by  :  Andersoi  &  Corrme-ford  * 

********************************************************> 

<**S**) 

unit  NODEINFO;  <*  saved  as  UNODE INFO. TEXT  *) 
intrinsic  code  25; 

interface 

uses  TURTLEGR, GLOBAL, RITE; 

procedure  SOUREGINFO; 
procedure  STASININFO; 
procedure  QUEINFO; 

implementation 

<***************  SOUREGINFO  *************************** 

*  Builds  the  data  structure  -for  a  source  or  regular  node* 

*  Also  writes  text  to  the  graphics  screen.  * 

*  Called  by:  MYPLOT  * 

********************************************************) 

procedure  SOUREGINFO; 
begin 

new<NEXTl ) ; 

Y :*Y+10 ; 

NEXT1A.DEVICE:»D;  NEXT1 A ,XL0CATI0N:=X ; 
NEXT1A.YL0CATI0N:=Y; 
i  f  D  =  1  then 

begin  NEXT1 A .TI PE :=' SOU' ; 

X  :»  X+40 ;  Y  :=  Y+l 
end  el se  begin 

NEXT1A.TIPE:*'REG' ; 

X:=X+30 ;  Y:=Y+1 
end; 

wr i te(chr( 12) ) ;  CH:='V';  writeln; 

write< 'Enter  node  number  <1  to  99)  - >  '); 

readl n(NEXTl A .NODOSUM) ; 

ST  :*NEXT1 A  .NODENUM;  WRITEONSCREEN;  Y:=NEXT1 A  .YLOCATION-U 
X:=X-20;  CH:='H' ;  VALIDXY:=true; 

wr i te< ' In i t i al  number  to  release  <0  to  9)  - >  '); 

readl n(NEXTlA. INITIAL) ; 

ST:=NEXT1A. INITIAL;  WRITEONSCREEN; 

Y:=Y-10;  VALIDXY :=true ; 

wr i te< 'Subsequent  number  to  release,  <  <CR>  '); 


I  C  4U  I  IIMltA  I  1  •  I  /  |  I  #— I  4  •  WwOvLUvUl  I  j 

i-f  1  ength(ST)  =  0  then  ST  :=  '-'; 

WRITEONSCREEN;  NEXT1A  .BRf*ICHING:='D' ; 

X:=X+1Q;  UALIDXY:=true; 

writet'Enter  M  to  mark,  otherwise  just  press  <CR>  - 1 

readl n<NEXTl A .MARK) ;  ST :=NEXT1 A .MARK ;  WRITEONSCREEN; 
Y:«Y*10;  VALIDXY:»true ; 

writet'Enter  choice  criterion  (FjLjSjBjM) - >  '); 

readl n<NEXTlA. CHOICE)}  ST :=NEXT1A .CHOICE}  WRITEQNSCREE 

write('Enter  a  node  comment.  <CR>  for  none  - >  '); 

readl  n<NEXTlA. COMMENT) ; 

NEXT1 A .NEXT  :«  BASE1 ;  BASE1  :  - 

d: 


NEXT1 ; 


<***»***********  STASIN1NF0  it************************** 

*  Builds  the  data  structure  -for  a  stat  or  sink  node.  * 

*  Also  writes  text  to  the  graphics  screen.  * 

*  Called  by:  MYPLOT  * 

a*******************************************************) 

procedure  STASININFO; 
begin 

new<NEXT2) ; 

Y:»Y+10; 

NEXT2A.DEVICE!»0;  NEXT2a.XL0CATI0N:»X; 

NEXT2a . YLOCATI ON  :«Y ; 
if  D  -  3 

then  NEXT2A.TIPE:»'STA' 

else 


el  se 

NEXT2A.TI PE:-' SIN'; 

X:»X+30;  Y:-Y+l} 

wr  i  te<chr< 12) ) ;  CH:='V'; 

write< 'Enter  node  number  <1  to  99) 

read! n<NFXT2A  NflDFNtM) s 


Trt  ■  »  «  >  «  ■  I  ■  »  •  mm  '  '  f  <  ■  T  | 

writet 'Enter  node  number  <1  to  99)  - >  '); 

readl n<NEXT2A .NODENUM) ; 

ST :-NEXT2A .NODENUM ;  WRITEONSCREEN}  Y:=NEXT2A  .YLOCA' 
X :*X-20 ;  CH:-'H'}  UALIDXY:=true ; 
wr i te< ' In i t i al  number  to  release  (0  to  9)  — > 
readl n<NEXT2A. INITIAL) 5  ST :=NEXT2A . INITIAL; 
WRITEONSCREEN: 


(  <CR> 

>; 

.SUBSEQUENT} 


I,  I, or  E»  - 
WRITEONSCRI 


writet'for  infinity  or  1  to  9)  — 
readl n<NEXT2A. SUBSEQUENT)}  ST:«NB 
if  1ength<ST)  *  0  then  ST  := 
WRITEONSCREEN} 

NEXT2A  . BRANCHING:-' D' } 

X X+ 1 0 :  OALIDXYi-trues 


vi  yppri  1  1 111  1  v  "T  t  1 

if  histogram  not  wan 


re ad1n<NEXT2A. UPPER) ; 
if  <NEXT2A.UPPER=/N') 
then  NEXT2A.WIDTH:='N' 
else  begin 

write<yEnter  width  of  histogram  cell  - >  '); 

readl n<NEXT2A .WIDTH); 
end}  <*  of  else  »> 

Y:-Y+10;  VALIDXY:»true; 

writet'Enter  choice  criterion  <F,L,S,B,M)  - >  '); 

readln<NEXT2A. CHOICE);  ST :=NEXT2A .CHOICE;  WRITEONSCREEN} 

wr  i  te< 'Enter  a  node  comment.  <CR>  for  none - >  "'); 

r*adln(NEXT2A .COMMENT) 5 
NEXT2A .NEXT  :»  BdSE2;  BASE2  NEXT2} 
end; 

<  »*««****•*»****  QUEINFO  ****************************** 

*  Builds  the  data  structure  for  a  queue  node.  * 

*  Also  writes  text  to  the  graphics  screen.  * 

*  Called  by:  MYPLOT  * 

****»*****»***********»**#»********##*»***#********#***») 

procedure  QUEINFO; 
begin 

new<NEXT5) ; 

Y:-Y+10; 

NEXT3A.DEWICE:-D;  NEXT5A . XLOCAT I  ON :  =X ; 

NEXT3A .YLOCATION:-Y; 

NEXT5A.TIPE:»'QUE'j 

X.—X+30;  Y:»Y+1; 

wr i te(chr<12)) ;  CH:-'V'; 

write( 'Enter  node  number  <1  to  ??)  - >  '); 

readl  n<NEXT5A  .NODENUM)  5 

ST :*NEXT5A  .NODENUM;  WRITEONSCREEN;  Y:**IEXT5A  .YLOCATIQN+1 ; 
X :*X-20 ;  CHi»'H';  VALIDXY:-true ; 

wri tet'Ini tial  number  in  queue  <0  to  ?)  - >  '); 

readl n<NEXT5A. INITIAL) 5  ST :-NEXT5A .  INITIAL; 

WRITEONSCREEN; 

Y:»Y-10;  VALIDXY:-true 5 
wr i te< 'Capac i ty  of  queue  node,  (  <CR>  '); 
write(/for  infinity  or  1  to  ?>  — >  '); 
readl n(NEXT5A. CAPACITY);  ST :=NEXT5A .CAPACITY ; 
if  length<ST)  ■  0  then  ST  :* 

WRITEONSCREEN; 

NEXT5A .  BRANCHING  ^'D' ; 

X:*X+10;  Y:«Y+5;  l#MJDXY:«true; 

writet'Enter  type  ranking  desired  <F,L,S,or  B)  - >  '); 

readl n(NEXT5A .RANKING) ;  ST :*NEXT5A .RANKING;  WRITEONSCREEN 
wr i te<'Enter  balking  node  number  (  <CR>  to  destroy  /); 

wr i te< 'bal kers  - >  ');  rtadln(NEXT5A .BALKERS) ; 

writet'Enter  upper  limit  of  first  cell  '); 

writt('<N  if  histogram  not  wanted)  - >  '); 

readl n<NEXT5A. UPPER); 


if  <NEXT5A.UPPER='N') 
then  NEXTS^WIDTHs^'N' 
else  begin 

wr  i  te< 'Enter  width  of  histogram  cell  - 
readln<NEXT5A .WIDTH); 
end;  <*  of  else  *> 

write('Enter  a  node  comment.  <CR>  'for  none 
read1n<NEXT5A .COMMENT) ; 

NEXT5A .NEXT  i«  BASES;  BASES  :=  NEXT5; 


fro 


(»**##*»**»*****♦*************#***************»*♦#**»***♦ 

*  This  unit  is  linked  to  QGERTNET.  It  contains  the  * 

*  procedures  to  build  the  data  structure  -for  activities  * 

*  and  parameter  sets.  * 

*  Written  by  :  Anderson  &  Come  ford  * 

«***»**»*»»*4*******************»*4****»*tt»****«*»**ft***) 

(*SS+*) 

unit  ACTPAR;  (*  saved  as  UACT PAR. TEXT  *> 
intrinsic  code  29; 


interface 

uses  TURTLEGR, GLOBAL, RITE ; 
procedure  ACTINFO; 
procedure  PARINFO; 


implementation 


(ft**************  PARINFO  »*»***»****»**»**•*»•****»* 

•  Builds  the  data  structure  for  a  parameter  set.  * 

*  Called  by  s  ACTINFO  * 

*********************************»*******************) 
procedure  PARINFO; 

begin 

writeln;writeln('  Building  Parameter  Card') ;wri teln; 

write( 'Enter  parameter  set  number  - >  '); 

read1n(NEXT3A.PARAM); 

ST:=*NEXT3A .PARAMj  ACTSTRING:=concat(ACTSTRING,ST ,')'); 
NEXT4:*BASE4;  FINDER ;*false ; 
while  (not  FINDER)  and  (NEXT4  <>  nil)  do  begin 
if  (NEXT4A. PARAM  -  ST) 
then  FINDERs*true 
else  NEXT4;*40CT4A.NEXT; 
end;  (*  of  while  *) 
if  (not  FINDER)  then  begin 
NEU(NEXT4) ; 

NEXT4a.TIPEj-'PAR' j 
NEXT  4 A .  PARAM :  =»ST ; 

write('Enter  1ST  parameter  - >  ');readln(NEXT4A.PARl) ; 

write('Enter  2ND  parameter  - >  ') ;readln(NEXT4A.PAR2) ; 

write('Enter  3RD  parameter  — >  ') ;readln(NB(T4A.PAR3) ; 
write('Enter  4TH  parameter  — >  ') ;readln(NEXT4A.PAR4) ; 
write('Enter  your  parameter  card  comment.  '); 
write('  <CR>  for  none  — >  '); 
r e ad 1 n ( NEXT 4A . COMMENT ) ; wr i t e 1 n ; 

NEXT4A .NEXT s*BASE4;  BASE4 !*NEXT4; 
end  (*  of  FINDER  if  *) 
else  begin  wr i teln; 

writeln('There's  already  a  parameter  set  ',ST); 

wr i te!n('Therefore,  a  parameter  card  will  not  be  built'); 


' ) jreadl n(NEXT4A .PAR2) ; 
');readln(NEXT4A.PAR3); 
' > ; r e  adl n (NEXT4A . PAR4) ; 
1  comment.  ') ; 


W  wr i te 1 n ;  end ; 

Sjjjj  ^  end; 

(*********«*****  SEARCH  a***************************** 

*  Finds  the  start  and  end  node  of  an  activity.  * 

*  Called  by  :  ACTINFO  * 

•*«*«#••»*#»•*»**»***»*«»*****«***«**•*»**»**•*»*«**•**) 


procedure  SEARCH; 
begin 

NEXT1 :=BASE1 ; 

while  (not  FINDER)  and  (NEXT1  <>  nil)  do  begin 
if  (NEXT 1 A .NODENUM  »  NEXT3A .START)  then 
begin  FINDER  :*  true; 
case  NEXT1A. DEVICE  of 

1:  begin  NEXT3A . SX:=NEXT1 A .XLOCATION  ♦  53; 

NEXT3 A. SY : -NEXT iA. YLOCATION;  end; 

2:  begin  NEXT3A .  SXs=NEXTl A .XLOCATION  +  42; 
NEXT3A .SY:*NEXT1 A .YLOCATION;  end; 
end;  (*  of  case  stmt  *) 
end 

else  NEXTli=NEXTlA.NEXT; 
end;  (*  of  while  *) 
if  (not  FINDER)  then  begin 
NEXT2:-BASE2; 

while  (not  FINDER)  and  (NEXT2  <>  nil)  do  begin 
if  (NEXT2A  .NODENUM  *  NEXT3A .START)  then 
begin  FINDER :»true; 

case  NEXT2A. DEVICE  of 

3:  begin  NEXT3A .SX :*NEXT2A .XLOCATION  ♦  42; 

NEXT3A.SY:-NEXT2A. YLOCATION;  end; 

6:  begin  wr i te(chr(12) ) ; 

write(/A  sink  node  can  not  start  a  act/) 
write('  press  RETURN' ) ; 
read(CH) ;exi t (ACTINFO) ;end; 
end;  (*  of  case  stmt  *) 

end 

else  NEXT2:=NEXT2A .NEXT; 
end;  (»  of  while  e) 
end; 

if  (not  FINDER)  then  begin 
NEXT5 :*8ASE5 ; 

while  (not  FINDER)  and  (NEXT5  <)  nil)  do  begin 
if  (NEXT5A . NODENUM  »  NEXT3A  . START)  then 
begin  FINDER j»true; 

NEXT3A.SX:-4fEXT5A. XLOCATION  ♦  42; 

NEXT3A  ,SYi«NEXT5A  .YLOCATION;  end 
else  NEXT5:-NEXT5A.NEXT; 
end;  (*  of  while  *) 
end; 

if  (not  FINDER)  then 


begin  wr i te(chr< 12) ) ; 

write<"Start  node  not  -found,  press  RETURN"); 
read(CH);  ex i t(ACTINFO) ; 
end; 

pencol or<NGNE> 5  moveto(NEXT3A .SX,NEXT3A.SY) ; 
write("End  node  number  — >  ");  readln(NEXT3A.IND) ; 

FINDER :-f  al se ;  NEXT1 :-BASEl ; 
while  (not  FINDER)  and  (NEXT1  <>  nil)  do  begin 
if  <NEXT1 A .NODENUM  *  NEXT3* . IND)  then 
begin  FIWER:-true; 

NEXT 3 A . EX :-WEXTl A .XLOCATI ON ; 

NEXT3A . EY  jaNEXTl A . YLOCATI ON ; 
end 

else  NEXT1  i^NEXTI A .NEXT ; 
end;  (*  of  while  *) 
if  (not  FINDER)  then 
begin  NEXT2:-BASE2; 

while  (not  FINDER)  and  (NEXT2  <>  nil)  do  begin 
if  <NEXT2A .NODENUM  »  NEXT3A . IND)  then 
begin  FINDER:»true ; 

case  NEXT2A. DEVICE  of 

3,6:  begin  NEXT3A .EX:  =NEXT2A .XLOCATI ON 
NEXT3A  .EY  :«*NEXT2A  .YLOCATI  ON;  end; 
end;  (*  of  case  stmt  *) 
end 

else  NEXT2 :aNEXT2A  .NEXT ; 
end;  (*  end  of  while  *) 
end; 

if  (not  FINDER)  then  begin 
NEXT5: -BASES; 

while  (not  FINDER)  and  (NEXT5  ()  nil)  do  begin 
if  (NEXT5* .NODENUM  -  NEXT3A . IND)  then 
begin  FINDERi-true; 

NEXT3A .  EX  :»NEXT5A  .XLOCATI  ON ; 

NEXT3A . EY :-NEXT5A .YLOCATI ON ;  end 
else  NEXT5 :"tCXT5A .NEXT ; 
end;  (»  of  while  •) 
end; 

if  (not  FINDER)  then 
begin  wr i te(chr(12)) ; 

write("End  node  not  found,  press  RETURN"); 
readln(CH) ;ex i t(ACTINFO) ; 
end; 

pencol or (WHITE) ; 

if  (NEXT3A. START  (>  NEXT3A.IND)  then  FINDER :»f al se ; 

end; 


<*#•###****##****  ACTINFO  *************************** 

*  Builds  the  data  structure  -for  an  activity.  * 

*  Also  writes  text  to  the  graphics  screen.  » 

*  Called  by  :  MY PLOT  * 

*•******»**»*#**********»**»******»«*******«*********) 
procedure  ACTINFO; 

war  TEMPX  :  integer; 

begin 

new(NEXT3>;  NEXT3A .DEVICE J»D;  NEXT3A .TIRE:-' ACT' ; 
wr i te(chr< 12) ) ;  wri te('Device  type  >>  ACTIVITY'); 
writeln;  writeln;  writeln; 

write ('Start  node  number  - >  ');  re adln(NEXT3A .START) ; 

FINDER s*fa1 se;  SEARCH; 

if  (not  FINDER)  then 

begin  moveto(NEXT3A .EX,NEXT3A .EY> ; 

X:=(NEXT3A.SX  ♦  NEXT3A.EX)  diw  2; 

Y:*(NEXT3A.SY  ♦  NBCT3A.EY)  diw  2; 
end  else 

begin  moveto(NEXT3A .SX,NEXT3A .SY+25) ; 
move to(NEXT3A.SX -42, NEXT3A. SY+25) ; 
moveto(NEXT3A.SX-42,NEXT3A.SY) ; 

X :=NEXT3A . SX-21 ;  Y:=NEXT3A .SY+25; 
end; 

INVERSE :-true; 

write('Enter  distribution  type  - >  '); 

readl n(NEXT3A .DISTR) ; 

ACTSTRING;*concat ( ' ( ' ,NEXT3A .DISTR ,',') ; 
if  (NEXT3A.DISTR-'C0')  then 

begin  write('Enter  constant  value  - >  '); 

readl n(NEXT3A .PARAM) ; 

ACTSTRINGs-concat (ACTSTRING,NEXT3A  . PARAM ,')'); 
end  else  PARINFO; 

ST  .—ACTSTRING ;  TEMPX  :*X; 

X:*X  -  (dength(ST)  diw  2)*7>; 

CHs-'H'j  WRITEONSCREEN; 

write< 'Enter  activity  number  (1  to  99)  - >  '); 

readl n (NEXT  3 A .ACTNUM) ; 

ACTSTRIN6 s«concat ( '  I ' ,NEXT3A .ACTNUM , ' I  ' ) ; 
write('Enter  number  of  parallel  servers  (1  to  99)  — > 
readl n(NEXT3A .SERVERS) ; 

ACT STRING :*c one at( ACTSTRING,'( ' ,NEXT3A . SERVERS, ' ) ' ) ; 

CT  •  aATTCTRINR  • 

Y:»Y  -  9;Xj»TEMPX  -  (dength(ST)  div  2>*7>; 

CHi-'H';  VALIDXY :»true ;  WRITEONSCREEN;  IWERSEs-f al se ; 
write('Enter  activity  card  comment.  (CR>  for  none  — ) 
r  e  ad  1  n  ( NEXT3A  .  C0M1ENT ) ; 

NEXT3A .NEXT  S-BASE3 ;  BASE3  S-NEXT3 ; 
end; 


(*******»*»*********##**##*******#***#**#*****«******#*** 

•  This  unit  is  linked  to  QGERTNET.  It  loads  a  network's* 

•  data  structure  from  disk  and  simultaneously  draws  the  * 

•  the  network  on  the  graphics  screen.  * 

•  Written  by  s  Anderson  it  Commeford  * 

*#**#**»**##*#**«#*******»***«*#*##»**#»*»******#*****#*) 

<#*S**) 

unit  INN;  <*  saved  as  UINN  •) 
interface 

uses  TURTLEGR, GLOBAL, RITE; 

procedure  !NDATA(var  SRFF :  SOUREGFIL; 

var  SSFF :  STASINFIL; 
var  AFF  s  ACTFIL; 
var  PFF  :  PARFIL; 
var  OFF  :  QUEFIL); 

procedure  LQAOSCREEN; 

implementation 

<  #*##**##*»*#»##  GRAFNODES  ************************** 

•  As  each  node  record  is  read  in  from  disk,  this  draws* 

•  the  node  on  the  graphics  screen.  * 

•  Called  by  »  INDATA  * 

******************************************************) 

procedure  GRAFNODES; 

begin  pencol or(wh i te) ;  OMODE  i»  10; 
case  D  of 

1 ,2)  begin  Di-  NEXT1A. DEVICE; 

X  NEXT1A .XLOCATIQN; 

Y  «-  NBCT1 A .YLOCATION  -  10; 
end; 

3,6)  begin  D>-  NEXT2A .DEVICE; 

X  J»  NEXT2A .XLOCATIQN; 

Y  NEXT2A. YLOCATION  -  10; 
end; 

3  s  begin  D:«NEXT5A .DEVICE; 

Xs*fEXT5A.XLOCATION; 

Y:«NEXT3A .YLOCATION  -  10; 
end; 

end;  (•  of  case  stmt  *) 
case  D  of 

It  begin  drawbl ock<ARR0U, 4,0,0, 21 ,21 ,X,Y, OMODE); 

drawbl ock (MODEL ,4,0,0 ,21 ,21 ,X+1 1 , Y , DHODE) 
drawblock(NODER,4,0 ,0 ,21 ,21 ,X+32,Y,  DHODE) 

end; 


2,3:  begin  drawbl ock<N0DEL,4,0 ,0 ,21 ,21 ,X,Y,DMODE) ; 

drawbl ock<N0DER,4,0 ,0,21 ,21 ,X+21 ,Y,DMODE) ; 

end; 

5:  begin  drawbl ock<QN0DEL,4 ,0 ,0 ,21 ,21 ,X,Y,DMODE> ; 

drawblock<QNODER,4,0 ,0 ,21 ,21 ,X+2 1 ,Y,DMOOE> 

end; 

6:  begin  drawb1ock<NODEL,4,0,0,21 ,21 ,X,Y,DMODE>; 

drawbl ock  <N0DER , 4 , 0 , 0 , 21 , 21 ,X+21 , Y , DHODE) ; 
drawbl ock(ARR0U,4,0 ,0 ,21 ,21 ,X+42,Y,DM0DE) ; 

end; 

end;  <*  of  case  stmt  *> 

X  s*  X  ♦  30;  Y  :»  Y  +  11;  CH  :=  'V' ; 
if  D  *  1  then  X  :*  X  ♦  10; 
case  D  of 

1,2:  ST  :»  NEXT1 * .NODENUH j 
5  :  ST  :aNEXT5A  .NODENUH; 

3,6:  ST  :=*  NEXT2A .NODENUH ; 
end;  <*  of  case  stmt  *) 

VALIDXY  :=  true;  URITEONSCREEN; 

X  :*  X  -  20;  CH  :»  'H' ; 
case  0  of 

1,2:  begin  Y  :«  NEXT 1 A . YLOCAT1  ON  ♦  1; 

ST  :=  NEXT1A. INITIAL; 
end; 

5  :  begin  Y:=NEXT5A .YLOCATION  +  1; 

ST :aNEXT5A . INITIAL ; 
end; 

3,6:  begin  Y  :*  NEXT2A .YLOCATION  ♦  1; 

ST  :*  NEXT2A. INITIAL; 
end; 

end;  <*  of  case  stmt  *) 

UALIDXY  j*  true;  URITEONSCREEN;  Y  :*  Y  -10; 
case  D  of 

1,2:  ST  :-  NEXT1A .SUBSEQUENT; 

5  :  ST :=NEXT3A. CAPACITY; 

3,6:  ST  :=»  NEXT2A  . SUBSEQUENT ; 
end;  <*  of  case  stmt  *) 
if  <length<ST)«0)  then  ST:"'-'; 

VALIDXY  :»  true;  URITEONSCREEN;  X  :*  X  ♦  10; 
case  D  of 

1,2:  ST  :»  NEXT1 A .MARK; 

3  :  begin  Y:»Y  +  5;  ST :-NEXT3A .RANKING;  end; 

3,6:  ST  :■  NEXT2A.STAT; 
end;  (*  of  case  stmt  »> 

WLIOYT  :■  true;  URITEONSCREEN; 
case  0  of 

1,2:  begin  ST :«*IEXT1A .CHOICE; 

Y:*Y+10;  VALIOXY:»true ; 

URITEONSCREEN; 

end; 

3,6:  begin  ST :«NEXT2A .CHOICE; 


Y:=Y+10;  VALIDXY:=true ; 

WRITEONSCREEN; 

end; 

end;  <*  of  case  stmt  *) 

end; 

<******«*****#**  GRAFACTIVITY  *********************** 

*  As  an  activity  record  is  read  in,  this  draws  the  * 

*  activity  on  the  graphics  screen.  * 

*  Called  by  :  INDATA  * 

****»********»*********»*****************»*********#**) 

procedure  GRAFACTIVITY ; 
var  TEMPX  :  integer; 

begin  DMOO£:=10;  pencolor(none) ; 
moveto(NEXT3A.SX,NEXT3A.SY) ; 
pencol or (wh i te) ; 

if  <NEXT3A. START  <>  NEXT3A.IND>  then 
Degin  raoveto(NEXT3A .EX,NEXT3A .EY> ; 
X:«<NEXT3A.SX*NEXT3A.EX)  div  2; 
Y:=(NEXT3A.SY+NEXT3A.EY)  div  2; 
end  else 

begin  moveto<NEXT3A .SX,NEXT3A .SY  +  25); 

moveto<NEXT3A .SX-42,NEXT3A .SY+25) ; 
raoveto<NEXT3A.SX-42,NEXT3A.SY) ; 
X:=NEXT3A .SX-21 ; 

Y:-NEXT3A.SY+25; 

end; 

ST :*concat < ' < ' ,NEXT3A . DI STR , ' , ' ,NEXT3A . PARAM ) ' ) ; 
TEMPX :«X; 

X:»X-((length<ST)  div  2>*7>; 

INVERSE r*true ;  WLIDXY:-true ;  CH:«'H'; 
WRITEONSCREEN; 

ST s»concat (.'l'  ,NEXT3A . ACTNUK, ' I  < 7  ,NEXT3A  . SERVERS 
Y:-Y-9;  X:*TEMPX-<<  1 ength(ST)  DIV  2)*7); 

VALIDXY :*true ;  WRITEONSCREEN;  IhWERSEs»false ; 
end; 

<»*»**»»*******»  INDATA  ********************** 

*  Loads  a  file  into  memory  as  link  lists.  * 

«  Called  by  :  LOADSCREEN  * 

*********************#*******************♦****«) 

procedure  INDATA; 

var  DlffiY  :  string; 

AGAIN  :  bool ean ; 

begin  wr i te(chr( 12) ) ; 

if  (not  UPDATE)  then  begin 

wr i te(' Load  what  file  - >  ');  readln< FILENAME) ; 

if  1 ength(FILENAME)  »  0  then  ex i t( INDATA) ; 


i-f  1  ength( FILENAME)  >  10  then 

begin  writeln;  wr i tel n< 7Fi 1 ename  too  1 ong! ! 7 ,chr < 7) 
ex i t( INDATA) ; 
end; 

end;  (*  o-f  then  *) 

DUMMY  :»  concat (FILENAME, 7  .SOUREG' ) ;  D  ;=  1 ; 

<*♦1-#) 

reset(SRFF, DUMMY) ; 
i-f  < I ORESULT  <>  0) 
then  begin  writeln; 

wri  te1n('Fi1e  called  7,DUMMY,7  not  ■found7); 
wr i te1n<7 (CR)  to  continue7) ;read<CH) ; 

<•♦1+*) 

exi t< INDATA) ;end; 

wri  teln  ;wr  i  teln< 'Reading  7, DUMMY, 7  -from  disk7); 

BASE1 :»n i 1 ; 

while  not  eo-f(SRFF)  do  begin 
new(NEXTl); 

NEXT  1 A  :=  SRFFA; 

GRAFNODES ; 

NEXT1 * .NEXT :=8ASE1 j  BASE1 :=NEXT1 ; 
get(SRFF) ; 
end; 

cIose(SRFF) ; 

DUMMY  !=  concat( FILENAME, 7  .STASIN7 ) ;  D  :=  3; 
writeln  ;wr  i  tel  n<  'Readi  ng  7,DUMMY,7  -from  disk7); 
reset(SSFF, DUMMY) ;  BASE2:=nil; 
while  not  eo-f(SSFF)  do  begin 
new(NEXT2) ; 

NEXT2A  !=  SSFFA; 

GRAFNODES; 

NEXT2* .NEXT :=BASE2 ;  BASE2 s=NEXT2 ; 
get(SSFF) ; 
end; 

cl ose<SSFF) ; 

DUMMY  :»  concat (FILENAME, 7 ,QUE7 ) ;  D  :=  5; 
wr  i  tel  n  ;wr  i  tel  n(  'Readi  ng  7,DUMY,7  -from  disk7); 
reset(QFF, DUMMY) ;  BASE5:*nil; 
while  not  eof(QFF)  do  begin 
new<NEXT5) ; 

NEXT5A  :»  QFFA ; 

GRAFNODES; 

NEXT5A  .NEXT  s*BASE5;  BASE5s=NEXT5; 
get(QFF) ; 
end; 

cl ose(QFF) ; 

DUMMY  :»  concat  (FILENAME, 7  .ACT7 ) ; 

wr  i  tel  n;wri  tel  n( 7  Reading  7,DUW1Y,7  -from  disk7); 

r eset(AFF, DUMMY) ;  BASE3:*nil; 
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while  not  eo-f<AFF)  do  begin 
new<NEXT3) ; 

NEXT3A  :=  AFFA  ; 

GRAFACTIVITY; 

NEXT3A .NEXT :=BASE3;  BASE3:=NEXT3; 
get<AFF); 
end; 

close(AFF) ; 

DUM1Y  :=  concat<FILEN*tE,' .PAR') ; 
wri  telnjwri  tel  n< 'Readi  ng  ',Dllt1Y,'  -fron  disk'); 
reset<PFF,DU“HY) ;  BASE4:=ni1; 
while  not  eo-f(PFF)  do  begin 
new<NEXT4) ; 

NEXT4*  :=  PFFA; 

NEXT4* .NEXT  :=  QASE4;  BASE4  :=  NEXT4; 
get(PFF) ; 
end; 

cl ose(PFF) ; 
end; 

<  ***************  LOADSCREEN  ******************* 
*  Called  by  :  MENU  * 

ft************#**********************************) 

procedure  LOAOSCREEN; 

begin  INDATA<SRFISSF>AF,PF,QF) ;  end; 


begin  end. 
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<****#**»****»***********************»**#***************# 

*  This  unit  is  linked  to  QGERTNET.  It  saves  a  network  * 

*  to  disk  by  writing  the  link  lists  to  different  files  * 

*  which  have  the  sane  prefix  as  supplied  by  the  user.  * 

*  Unit  UINN  uses  these  files  to  load  the  data  structure  * 

*  into  memory  and  draw  the  graphics  * 

*  Written  by  t  Anderson  &  Come  ford  » 


<*SS+*) 

unit  OUT;  <»  saved  as  UOUT.TEXT  *) 

interface 

uses  6L06AL; 

procedure  OUTDATA<var  SRFF:  S0URE6FIL; 

var  SSFFs  STASINFIL; 
var  AFF  t  ACTFIL; 
var  PFF  :  PARFIL; 
var  OFF  :  QUEFIL); 
procedure  SAUESCREEN; 

implementation 

<***************  OUT  DATA  **»*♦##**»**#**«***»****«#** 
*  Writes  the  link  lists  in  memory  to  disk  with  user's  * 
»  filename.  Called  by  >  SAVESCREEN  * 


procedure  OUTDATA ; 
begin 

if  <not  UPDATE)  then  begin 

wri te<chr(12)) ;  write('Save  with  what  name  — >  '); 
readln< FILENAME) ; 

if  length (FILENAME)  -  0  then  exi t(OUTDATA) ; 
if  length(FILENAME)  >  10  then 

begin  wri  teln;  wr i te1n('Fi lename  is  too  long! ! ' fchr<7)) ; 

exit (OUTDATA); 
end; 

end)  (»  of  then  ») 

DtfftfT  «-  concat ( FI LENAHE , '  . SOURED' ) ; 
wr i telnjwr i teln('Wr i ting  ',DUtt1Y,'  to  disk'); 
rewrite(8RFF,DiMff);  NEXT1  J-  BASE1 ; 
while  (NEXT1  <>  nil)  do  begin 

SRFFA  NEXT1 A ;  put(SRFF);  NEXT1  *»  NEXT1A .NEXT; 

end;  (*  of  while  ») 
close (SRFF, LOCK); 

DlfflY  :■  concat  (FI  LENAME , '  .STASIN') ; 


write)n;writeln("Uriting  ',011* 
rewr i te<SSFF, DUMMY) ;  NEXT2  s-  E 
while  (NEXT2  <>  nil)  do  begin 
SSFFA  s*  NEXT2*  ;  put(SSFF); 
end}  <•  of  while  *) 
c1ose<SSFF,1ock) ; 


,DlfMY,"  to  disk"); 
:•  BASE2; 


NEXT2  :■  NEXT2A .NEXT ; 


DlfflY  i-  concet (FILENAME i "  .ACT") ; 
write1n;wri te1n("Ur iting  ", DUMMY,"  to  disk"); 
rewr  i  te(AFF,  DlftlY) ;  NEXT3  :«  BASE3; 
while  (NEXT3  <>  nil)  do  begin 

AFFA  j-  NEXT3*;  put(AFF>;  NEXT3  i-  NEXT3A .NEXT ; 
end;  <*  of  while  »> 
close(AFF,lock) ; 


DlftlY  i-  conc«t< FILENAME, ".PAR"); 
wri teln;write1n<"Uriting  ", DlfflY,"  to  disk"); 
rewri  te(PFF, DlftlY) ;  NEXT 4  *-  BASE 4; 
while  (NEXT4  <>  nil)  do  begin 

_ .  _ .  iipvtt A 


rtwri  itirrPfWvrnT/ \  j—  woetj 

while  (NEXT4  <>  nil)  do  begin 

PFFA  i*  NEXT4A;  put(PFF) ;  NEXT 4  :■ 
end;  <*  of  while  *) 
close<PFF,lock) ; 


NEXT4A .NEXT ; 


DlftlY  !-  concet< FILENAME,"  .QUE")  J 

wri te1n;wr i te1n<"Wr i ting  ", DlftlY,"  to  disk"); 

rewrite  (OFF,  DlftlY)  |  NEXT3  i*  BASES; 

while  (NEXTS  <>  nil)  do  begin 

QFFA  i-  NEXTS*;  put  (OFF);  NEXTS  s«  NEXTSA  .NEXT ; 
end;  (e  of  while  *) 
close (OFF, lock) ; 


SAFETY  i« 
end; 


true; 


(MSMHHHHHHHHHK  SAVESCREEN 

*  Celled  by  t  MENU  * 


procedure  SAMESCREEN; 

begin  0UT0ATA(SRF,SSF,AF,PF,QF) ;  end; 


begin  end. 


a 


(ft******************************************************* 

»  This  unit  is  linked  to  QGERTOET.  It  Allows  the  user  * 

*  to  change  or  delete  source/regul at  nodes.  * 

*  Written  by  *  Anderson  &  Came -ford  * 

<*»S**) 

unit  EDITSRj  <•  sewed  as  UEDITSR.TEXT  •> 

interface 

uses  GLOBAL) 

procedure  FINDSOUREG; 

iwp  lenten  tat  ion 

<  »**»**»*****»»*  CHN6S0URE6  »**#***«»**♦*»#**»***»*»»**** 

•  Allows  changes  of  cert Ain  fields  to  source/regul at  nodes  • 

•  Called  by  t  FINDSOUREG  • 

procedure  ChNGSOUREG | 
begin 

writeln)  writet'To  change  a  field  above,  type  in  the  ')} 
wri tel n< 'first  letter  ')) 
writeln('of  the  field  you  want  to  change.')) 
wri  tel n< 'A  blank  field  weans  the  default  value.')) 
writet'You  way  type  a  Q  when  you  are  done  with  ')) 
wr i teln<' this  node.')) 
while  <ANS  <)  'Q')  do  begin 
repeat 

gotoxy(30,14) )  wri te('  ')) 

gotoxy(20,U)j  write<'  ')) 

gotoxy<0,14) j  write<'Enter  your  choice  '); 

wri te('<N,I ,S,M,H,C,Q)  - )  ')) 

read<ANS) j 

until  <<AN9-'N')or<ANS-'r)or<AN^'S'>or<ANS»'M') 
or(AN9*'H'  )or<AN^'C'  )or<AN9"'Q'  >)  | 
if  <FN9"'Q')  then  exi  t<O*fGS0UREG)  j 
gotoxy<0,14)) 

write( 'Enter  new  value  — >  ')| 
case  ANS  of 

'N'l  readln<NEXTl A  .N00ENU1) ) 

'I' i  readln<NEXTlA. INITIAL)) 

'S' i  r  eadl  n<NEXTlA.  SUBSEQUENT)) 

'N'l  r eadl n (NEXT1 A .MARK) } 

'H't  r eadl n<NEXTlA. CHOICE)) 

'C'l  readln<NEXTlA  .COfCNT)  j 
end)  (e  of  case  stmt  *) 

gotoxy<0,2) jwr i te<'  />) 


«  . 
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wri te<'  '); 

gotoxy<3,2>  j  writ#(NEXTl*  /t  !PE>  j 
gotoxy<?,2>;  wr  i te<NEXTl* .NODENUM) ; 
gotoxy<16,2) j  write<NEXTl*. INITIAL)} 
§otoxy<26,2) j  wr i tt(NEXTlA .SUBSEQUENT) ; 
gotoxy<39,2) j  wr i te<NEXTl* .MARK) j 
gotoxy(46,2)  j  wr!  te<NEXTl*. CHOICE)  ) 
gotoxy<3,4){  wr i te<NEXTl*.C®f<ENT) j 
•nd)  <*  of  while  *) 
end) 

(mmmiMfw  60TS0URE6  ************************ 

*  After  finding  selected  nod*,  display*  information  * 

*  of  that  nod*  and  ask*  if  d*1*tion  is  d**ir*d.  * 

*  Called  by  i  FIN0S0URE6  * 

******************** ******  **********  **************** ) 


procedure  GOTSOUREB; 
begin 

write(chr<12))) 
writ*ln('Here  is  your  node')} 

wri t*('  TYPE  N<OOE  MNITIAL  S< UBSEQUENT  MARK  ' 
wri te('C(H)OICE')) 
gotoxy<0,3)}  writ*('  C<(tf1GMr/>| 
if  FINDER  then 
begin 

gotoxy<3,2>|  wr f  te<NEXTI*.TIPE) f 
gotoxy<9,2) j  wri te(NEXTlA. NODENUN) ; 
gotoxy<16,2)j  wr i te<NEXTlA .INITIAL) | 
gotoxy<26,2) ;  wr it* <NEXT1*. SUBSEQUENT)  | 
gotoxy<39,2) j  wr i te<NEXTl *  .MARK) | 
gotoxy(46,2> j  write<NEXTi*. CHOICE) ) 
gotoxy<3,4) j  wr i te<NEXTlA .CCMNBfT) j 
end  else 
begin 

gotoxy<3,2)|  wr i te<NEXTlA .NEXT* .TIPE) j 
gotoxy(9,2) j  wri  teCNEXTl*. NEXT*  .NODENUM)  | 
gotoxy<14,2)|  wri te <NEXT1*. NEXT*. INITIAL) | 
gotoxy<26,2) j  wr i te<NEXTl* .NEXT* .SUBSEQUENT) j 
gotoxy<39,2) j  wri te<NEXTI* .NEXT* .MARK) | 
gotoxy<44,2) j  write<NEXTl*. NEXT*. CHOICE)) 
gotoxy<3,4)|  wri te<NEXTl *. NEXT*. CCW0fT)j 
end) 
repeat 

gotoxy(48,7) )  write(/  ')| 
gotoxy(0,7)| 

write<'Do  you  want  to  delete  this  entire  node?  ' ) j 
wr i t*<'Y/N  — )  ')) 
read(PNS) | 

until  <<*»«'Y'>  or  <PN9-'N'))) 
end) 


vy« 


< eeeeeaaeeeaeeee  F1NDS0UREG  »»»*»»*»*»****»*»»»««»** 

*  Finds  the  selected  nod#  and  than  aithar  dalatas  the  « 

*  noda  or  calls  CMGS0URE6.  * 

*  Cal  lad  by  s  unit  EDIT  * 

e«**«eeeeeeseeesseee*ee«ses*e*se*«**»#**eeaees«e*#***e) 

procedure  FINDSOUREQ; 
begin 

if  <BASE1  *  nil)  than 

begin  Mri tel n< 'Can’t  find  ' .STRSEL EC, ELEMENT) \ 
mt i teln<'<CR>  to  continue'))  read<ANS) j 
axi t<FINOSOUREG) j 
and)  (a  of  than  a) 

FINDERi-true; 

if  <NEXT1A.NOOENUM  -  ELEMENT)  than 
begin  GOTSOUREG) 

if  <ANS  -  'Y')  than  BASE1 i-BASEl * .NEXT 
else  CHNGS0URE6 ; 

and 

else  begin 

FINDER:»fa1se; 

repeat 

if  <NEXT1*  .NEXT* .NODENUM  <>  ELB1ENT)  than 
NEXT1  s^lEXTl  *  .NEXT ; 
until  <<NEXTl*.NEXT-nit) 
or  (NEXT1  *  .NEXT* . NODENUM- ELEMENT )  )  { 
if  <NEXTI*.NEXT-nil)  than 

begin  Mri tel n< 'Can't  find  ' .STRSEL  EC,  ELEMENT) 5 
Mri te1n<'<CR>  to  continue'))  read<ANS> j 
ax i t<FINDSOUREG) 1 
and)  (a  of  than  a) 

GOTSOUREG) 

if  <ANS  *  'Y')  than  NEXT1* .NEXT J^iEXTl*  .NEXT* .NEXT 
else  begin  NEXT1 i-NEXTl*.NEXT)  CtNGSOUREG ;  and) 
and)  <a  of  else  a) 

and) 

begin  and. 


'i? 


(m<H«m»H»H»t«********H»»***«««**»»*«**»t* 

*  This  unit  is  linktd  to  Q6ERTNET.  It  Allows  * 

*  th#  ustr  to  chsngs/dsltts  a  st At/s ink  nod*.  * 

*  Writttn  by  >  Anctepson  4  Ccnmford  » 


<*$&*•> 

unit  EDITSS;  (»  ssvtd  as  UEDITSS.TEXT  *> 

intAPfACA 

usas  GLOBAL | 
proctdurt  FINDSTASINj 
inpl AntntAt i on 

( *#*»****«*#*«**  CHN6STASIN  h«h»»h»*««h»h*h* 

#  Allows  chsngts  of  ctrtAin  f itlds  to  stAt/sink  * 
s  nodts.  CAllAd  by  s  FINDSTASIN  * 

VVVfwVVVVWVVVVWVVWVVBVVIVVIVVVffVVVffffVffVlffffTt9ffffff9W9 ) 

procAdurA  CHNGSTAS1N) 
begin 

writAlnj  wpitn<7To  chAngA  A  fitld  Above,  typA  in  thA  7>j 
wpi teln(7f irst  letter  7)f 
write1n<7of  thA  fiAld  you  wnnt  to  chAngA. '); 
writeln<7A  bUnk  fiAld  MAns  dtfAult  vaIua.7); 
writet'You  MAy  typ*  a  Q  whAn  you  ata  donA  with  this7); 
write)n<7  nods.7); 
whilA  <ANS  <>  7Q7>  do  bAgin 
PApAAt 

gotoxy<30 , 14) ;  write<7  '); 

gotoxy<20,16) ;  write<7  7 ) ; 

gotoxy<0f14) ;  write< 'Enter  your  choics  '); 

wri te<7<N,I ,3,TfU,U,HfC,Q)  - >  7); 

PAAd(ANS) | 

until  <<AN9*7N7)or(AN9*7I7>or<ANJ>7S7  )or(AN9*'T7) 
or<AN»"7U7  )op<AN8-7W7  )or<AN9«7H7  )or<tft©*7C7  )op<AN9»7Q7  ) )  j 
if  <AN9"7Q7)  thAn  Axi  t<Clff0STASIN)  ; 
gotoxy(0,16) ;  wpitA<7EntAP  now  vaIua  — >  7); 
casa  ANS  of 

7H7 l  PAAdln<NEXT2A.NOOB«1)j 
7I7»  PAtdln<NEXT2A. INITIAL) | 

7S7i  r AAdl n <NEXT2A . SUBSEQUENT) ; 

7T7 i  PAAdln(NEXT2A.STAT)| 

7U7i  pa Adi n <NEXT2A . UPPER) { 

7W7i  PAAd1n<NEXT2A .WIDTH) ; 

7H7i  PAAdln(NEXT2A. CHOICE); 

7C7i  rAAdln(NEXT2A .COHiENT) | 

And)  (•  of  casa  stmt  •) 
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gotoxy<0 ,2) jwr i t*< * 
writer 

gotoxy<3,2);  wr i te(NEXT2* .TIPE) ; 
gotoxy<9,2) ;  wr i te<NEXT2* .HOOENUM) | 
gotoxyt 16,2) ;  wr i te<NEXT2* . INITIAL) ; 
gotoxy<26,2) j  writ* <NEXT2* . SUBSEQUENT) ; 
gotoxy<39,2);  write<NEXT2*.STAT) } 
gotoxy<47,2) ;  write<NEXT2*. UPPER); 
gotoxy(33,2) j  write(NEXT2*. WIDTH) ; 
gotoxy<63,2> j  wr i te<NEXT2* .CHOICE) { 
gotoxy<3,4>;  wr i t*<NEXT2A . COMMENT) ; 
end;  <*  of  whi I*  *) 

•nd| 

(  GOT  STAS  IN  »h*h*h*»h«h«h*h*h»h 

•  After  finding  th*  selected  node,  displays  information  » 

•  of  that  nod*  and  asks  if  deletion  is  desired.  * 

•  Called  by  :  FINDSTAS1N  * 

*»**»**»»*»#*****»#*»**»»*»»*»#*»»**»**«**»***»**»*»***») 

procedure  GOTSTASINj 
begin 

wri tc<chr<12)) | 

wr i teln<,H*r*  is  your  node'); 

wri te<#  TYPE  N<ODE  KNITIAL  S< UBSEQUBfT  S(T)AT  '); 
writ*('U<PPER  U<IDTH  C<H)0ICE')j 
gotoxy<0,3)j  writer  C(OflBfr'); 
if  FINDER  then 
begin 

gotoxy<3,2);  wri te<NEXT2* .TIPE) j 
gotoxy<9,2);  wr  i  te<NEXT2*  .NODENUN) ; 
gotoxy(16,2) ;  wr i te<NEXT2* . INITIAL) ; 
gotoxy<26,2) ;  write (NEXT 2*. SUBSEQUENT) ; 
gotoxy<39,2) ;  wr i te<NEXT2* .STAT) ; 
gotoxy(47,2)|  wri te<NEXT2* .UPPER) ; 
gotoxy(35,2) ;  write<NEXT2* .WIDTH) j 
gotoxy(63,2) j  wr i te<NEXT2* .CHOICE) ; 
gotoxy<3,4)|  wr i t*(NEXT2A . CChHENT) j 
end  els* 
begin 

gotoxy<3,2) ;  write<NEXT2*. NEXT*. TIPE) j 
gotoxy(9,2)|  wr  i  te(NEXT2A  .NEXTA  .NODENUM)  j 
gotoxy<16,2) j  wr it*<NEXT2A.NEXTA. INITIAL) ; 
gotoxy<26,2) ;  wr i te<NEXT2A ,NEXTA . SUBSEQUENT) | 
gotoxy<39,2) j  wr it*<NEXT2A. NEXT*. STAT ) j 
gotoxy<47,2) }  wr i t*(NEXT2A .NEXT* .UPPER) ; 
gotoxy<95,2) ;  write<NEXT2* .NEXT* .WIDTH); 
gotoxy(63,2);  write<NEXT2*. NEXT*. CHOICE); 
gotoxy<3,4) ;  wr  i  te(NEXT2*  .NEXT*  .CDM1ENT) ; 
end; 
repeat 

gotoxy<48,7) ;  writer  ' ) ; 


') 

'>1 
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i" W rif. If.  ".1-5  1A *>  ■> w»y .it  XT rr f  A V-  re  A'\I.^.,~AW1T.¥".'.: 


gotoxy(0 ,7) ; 

write(7Do  you  want  to  delete  this  entire  node?  7); 

write</Y/N - >  7 )  ; 

read(ANS)  ; 

until  ((ANS»7Y7)  or  (ANS-7N7)); 
and  | 

<  w»»w»t«m»H  FINDSTA8IN 

a  Finds  the  selected  node  and  then  either  deletes  • 

*  the  node  or  calls  CWIGSTASIN.  * 

*  Called  by  >  unit  EDIT  * 

«»*#**«*»**»*****  ***»**»»******-»*«****#***********) 

procedure  FINDSTASIN; 
begin 

if  (BASE2  *  nil)  then 

begin  wri te1n</Can*t  find  7  , STRSELEC , ELEMENT) ; 
wr i te!n(7(CR>  to  continue7);  read(ANS); 
exi t(FINDSTASIN) ; 
end;  (a  of  then  a) 

FINDER !■ true; 

if  (NEXT 2* .NODBfUM  -  ELEMENT)  then 
begin  GOTSTASIN; 

if  <ANS  -  7Y7 )  then  BASE2:-8ASE2*.NEXT 
else  CIMGSTASIN; 

end 

else  begin 

FINDERi-false; 

repeat 

if  (NEXT 2* .NEXT* .NOOENUM  (>  EL01ENT)  then 
NEXT2i^EXT2A.NEXT; 

until  ( (NEXT2* .NEXT*n i  1 )  or  (NEXT2A .NEXT* .NODENU^ELBiENT) )  ; 
if  (NEXT2* .NEXT*n i 1 )  then 

begin  wri tel n(7Can't  find  7 ,  STRSELEC,  ELEMENT) ; 
wr i te1n(7<CR>  to  continue7) ;  read(ANS); 
exi t(FINDSTASIN) ; 
end;  (a  of  then  a) 

GOTSTASIN; 

if  (ANS  -  7Y7)  then  NEXT 2* .NEXT i “NEXT 2* .NEXT* .NEXT 
else  begin  NEXT2i^EXT2*.NEXT;  CHfGSTASIN;  end; 
end;  (a  of  else  a) 

end; 

begin  end. 


9A 


<*#**•**»**#*#«*«»»*#*******•*»**»**»******»*•»** 

*  This  unit  is  linked  to  QGERTNET.  It  allows  * 

*  change/deletion  of  queue  nodes.  * 

*  Written  by  t  Anderson  k  Conmeford  * 

<*SS*e) 

unit  EDITQUE;  <*  saved  as  UEDITQUE.TEXT  e) 

interface 

uses  GLOBAL; 

procedure  FINOQUE; 

implementation 

<  CHNGQUE  H*mH*»***H»H*H* 

*  Allows  changes  of  certain  fields  to  queue  * 

*  nodes.  Called  by  i  FINDQUE  * 

»H  M  M  Utmjm  M  M  Jt  MMM  M  M  M  M  US  M  MMJI  M  M  M  \ 

JMtVVWRIlMIIMMI  VVVVVff  VTffVVXVVRVVVVTVVVTXfTf  ffTfWTTirx^ 

procedure  CWGQUE; 
begin 

writeln;  write<'To  change  a  field  above,  type  in  the  '); 
wri tel n< 'first  letter  '); 

writelnf'of  the  field  you  want  to  change.  A  blank'); 
wri tel n< 'field  means  default  value.  You  may  type  a'); 
writeln('Q  when  you  are  done  with  this  node.'); 
while  (ANS  <>  'Q')  do  begin 
repeat 

gotoxy<30,14) ;  wr i te('  '); 

gotoxy<20,16) ;  wr i te<'  '); 

gotoxy<0,14) ;  write<'Enter  your  choice  '); 

wri te<'(N,I ,A,R,B,U,W,C,Q)  - )  '); 

read<AN8) ; 

unt  i  1  <<AN9-'N'  >or«¥49»'  I '  )or<ANS«'A'  >or<iW&»'R' ) 
or<AN9»'B')or<AN>'U')or<ANS-'W'>or<AN9»'C'>or<*IS«'Q')) ; 
if  <AN&»'Q'>  then  exi t<ClMGQUE) ; 
gotoxy(0,16) ;  write< 'Enter  new  value  — )  '); 
case  ANS  of 

'N't  readl  n<NEXT5A .NODENUN) ; 

'I' t  readl  n<NEXT3A. INITIAL) ; 

'A' t  readl n<NEXT5A. CAPACITY) ; 

'R's  readl n<NEXT5A .RANKING) ; 

'B't  read1n(NEXT5A .BALKERS) ; 

'U't  readln<NEXT5A .UPPER) ; 

'U't  readl  n<NEXT3A. WIDTH) ; 

'C't  readl  n  (NEXT5A  .CCWENT) ; 
end;  <•  of  case  stmt  e) 
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>5 


gotoxy<0,2) ;wr i t*<7 
writ*<7 

gotoxy<3,2) ;  wri t*<NEXT5*.TIPE) } 
gotoxy<9,2) )  wr i t*<NEXT5* .NOOENUM) ; 
gotoxy<14,2) ;  wr i t*<NEXT5* .INITIAL) ; 
gotoxy<26,2) ;  writ*<NEXT5*.  CAPACITY); 
gotoxy(38,2) $  write<NEXT5*. RANKING)} 
gotoxy<48,2) j  wr i tt <FCXT5A • BALKERS) ; 
gotoxy<38,2) ;  wr ite<NEXT3*. UPPER) 5 
gotoxy<46,2) ;  wr i t*<NEXT5* .WIDTH) ; 
gotoxy(3,4) ;  wri te<NEXT3*.CtMfifT) ; 

•nd|  <»  of  whi 1*  *) 

•nd; 

<  »***••»•***#*#*  GOTOUE  *»*»»**»*»***»***»****» 

•  After  finding  selected  queue  nod*,  displays  * 

•  inforatation  of  that  nod*  and  asks  if  d*1*tion  * 

•  is  d*sir*d.  Ca11*d  by  :  FINDQUE  * 

*H*H**»*M*H»HMH»*«m»H*M*M*******«H) 


'>} 


proccdur*  GOTOUE } 
b*gin 

wri te<chr<12)); 

wri teln(7Here  is  your  nod*7)! 

wri  ted  TYPE  N<ODE  KNITIAL  C<A)PACITY  R(ANKING  7); 
wri te<7B(ALKIN8  U<PPER  W<IDTH7) ; 
gotoxy(0,3) ;  wri  ted  C<GttiBfT/ ) j 
if  FINDER  then 
begin 

gotoxy<3,2) j  wr i te<NEXT3* .TIPE) j 
gotoxy(9,2) |  wr i te(NEXT3* .NODENUh) ; 
gotoxyd4,2) i  writ*<NEXT3A. INITIAL); 
gotoxy<26,2) ;  wr  ite<NEXT3*. CAPACITY) ; 
gotoxy<38,2) j  wri  te<NEXT5*.RANKIN8> ; 
gotoxy(48,2)|  write<NEXT3*. BALKERS); 
gotoxy<38,2) ;  writ*<NEXT5A. UPPER); 
gotoxy(44,2);  wr ite<NEXT3* .WIDTH) ; 
gotoxy<3,4) ;  wr i t»<NEXT3A .COMMENT) ; 

•nd  *1s* 
begin 

gotoxy<3,2) ;  wri te<NEXT5*. NEXT*. TIPE) ; 
gotoxy<9,2) ;  wri  te<NEXT3*. NEXT*. NODENW) ; 
gotoxy<14,2) ;  wr it*<NEXT3A. NEXT*. INITIAL) ; 
gotoxy(24,2);  wr it*<NEXT3*. NEXT*. CAPACITY) ; 
gotoxy<38,2>;  wr it*<NEXT5*. NEXT*. RANKING) ; 
gotoxy<48,2) ;  writ*<NEXT3*. NEXT*. BALKERS); 
gotoxy<38,2> ;  writ*<NEXT5*. NEXT*. UPPER); 
gotoxy<44,2) ;  wri t*<NEXT3* .NEXT* .WIDTH) ; 
gotoxy<3,4);  wri t*<NEXT3* .NEXT* .CtHIENT) ; 

•nd; 

repeat 

gotoxy<48,7) ;  writed  7); 
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gotoxy<0,7) ; 

write('Do  you  want  to  delete  this  entire  node?"); 

write(7  Y/N - >  7); 

read(ANS) ; 

until  <(ANS»7Y7)  or  0*IS-7N7)); 
end; 


<  ***************  FINDQUE  a********************* 

*  Finds  the  selected  queue  node  end  then  either  • 

*  deletes  the  node  or  cells  CftfGQUE.  » 

*  Celled  by  :  unit  EDIT  e 


procedure  FINDQUE; 
begin 

if  (BASE5  anil)  then 

begin  wri teln</Cen,t  find  7 , STRSELEC , ELEMENT) ; 
wr i teln(7(CR>  to  continue7);  read(ANS); 
ex  it (FINDQUE); 
end;  <•  of  then  •) 

FINDER :«true ; 

if  (NEXT5A  .NOOENUH  *  ELEMENT)  then 
begin  60TQUE; 

if  (ANS  -  7Y7)  then  BASES :™BASE5A .NEXT 
else  CtMGQUE; 
end 

else  begin 

FINOER:-false; 

repeet 

if  (NEXT5* .NEXT* .NOOENUM  <>  ELEMENT)  then 
NEXT3:=*iEXT3A  .NEXT; 

until  <<NEXT5A.NEXT-nil>  or  <NEXT3A .NEXT* .NODENUM-ELEMENT) ) ; 
if  <NEXTSA .NEXT-n i 1 )  then 

begin  wri teln</Cen,t  find  7 ,  STRSELEC,  ELEMENT) ; 
wri teln(7(CR>  to  continue7) ;  reed(ANS); 
ex  it (FINDQUE); 
end;  (*  of  then  *) 

GOTQUE; 

if  (ANS  ■  7Y7 )  then  NEXT 5 A .NEXT:-NEXT3A .NEXT* .NEXT 
else  begin  NEXT5»*4EXT5A .NEXT;  CHNGQUE ;  end; 
end;  (»  of  else  •) 

end; 


begin  end. 


n>T\> 


<*********************************************#** 

*  This  unit  is  linked  to  QGERTNET.  It  allows  * 

*  the  user  to  change/delete  an  activity.  * 

*  Ur  it  ten  by  :  Anderson  &  Corome-ford  * 

**««*********»#****#***#***#***♦****»**********) 

<#*S+#) 

unit  EDITACT ;  <*  sawed  as  UEDITACT.TEXT  *> 

interface 

uses  GLOBAL; 

procedure  FINOACT; 

implementation 

<  ***************  CHNGACT  ************************ 

*  Allows  changes  of  certain  fields  to  act iwi ties.  * 

*  Called  by  :  FINDACT  * 

*»»****»****•*******»«**»****#***»************«***) 

procedure  CWfGACT ; 
begin 

writeln;  write ('To  change  a  field  above,  type  in  the  '); 
wri teln<'f irst  letter  '); 

write('of  the  field  you  want  to  change.  A  blank  '); 
wri tel n< 'field  means  the'); 

wr i teln('defaul t  value.  If  you  want  to  change  the'); 
write('START  or  END  node  you  must  delete  the  '); 
wr i teln< 'act i vi ty  and  then'); 
write('add  the  new  one  in  the  main  program.  '); 
writeln('You  may  type  a  Q  when'); 
writeln('you  are  done  with  this  activity.'); 
while  «*IS  <>  'Q')  do  begin 
repeat 

gotoxy<30,14) ;  wri te('  '); 

gotoxy<20 , 16) ;  write('  '); 

gotoxy<0,14) ; 

writet'Enter  your  choice  <D,P,AtS,C,Q)  — >  '); 
read(ANS) ; 

until  < <AN9"'D' )or(AN^'P')or <ANS*'A' )or(AN&“'S' ) 
or (ANS-' C' ) or «WS»' Q')) ; 
if  <ANS-'Q')  then  exi t(CHfGACT) ; 

gotoxy(0,14);  writet'Enter  new  value  - >  '); 

case  ANS  of 

'D'j  readln<NEXT3A .DISTR) ; 

'P':  read1n<NEXT3A.PARAM) ; 

'A'  i  readln<NEXT3A  .ACTNUH) ; 

'S'j  readln<NEXT3A. SERVERS); 

'C'»  readln<NEXT3A.C0M1ENT) ; 
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end;  (*  of  case  stmt  *> 
gotoxy<0 ,2) ;wr i te< ' 
wri te</ 

gotoxy<3,2) ;  wri te<NEXT3* .TIPE) ; 
gotoxy(9,2) ;  wri te<NEXT3A. START ) ; 
gotoxy<16,2) ;  wr i tt<NEXT3A . IND) ; 
gotoxy(21 ,2) ;  wr i t#<NEXT3A . DISTR) ; 
gotoxy<2?,2> ;  wr i t#<NEXT3A .RARAM) } 
gotoxy(37)2) j  wri te<NEXT3* .ACTNUM) ; 
gotoxy<44,2) ;  wr ite<NEXT3*. SERVERS) ; 
gotoxy(3f4) j  wri te<NEXT3*  .C0M1ENT) ; 
end;  <»  of  while  *) 
end; 


<  «»***«*#****»**  GOTACT  ******************************* 

*  After  finding  selected  node,  displays  information  of  * 

*  that  node  and  asks  if  deletion  is  desired.  • 

*  Called  by  :  FINDACT  * 

a***#**#*##*****#******#*##**#**#***#*##**#*###*#*****##) 


procedure  GOTACT ; 
begin 

wri te(chr<12)) ; 

writeln<'Here  is  your  activity'); 
wri tel n< 7  TYPE  START  B4D  D< ISTR 
gotoxy<0,3) ;  write('  COMMENT' ); 
if  FINDER  then 
begin 

gotoxy<3,2) ;  wr i te<NEXT3A .TIPE) ; 
gotoxy(9,2) ;  wri te<NEXT3A. START) ; 
gotoxy( 16,2) ;  wr i te<NEXT3A . IND) ; 


P<ARAM  A<CT*  S(ERVERS') 


gotoxy(21 ,2) ;  wr i te<NEXT3A .DISTR) ; 
gotoxy<29,2) ;  wr i te<NEXT3A . PARAM); 
gotoxy<37,2) ;  write<NEXT3A .ACTNUM); 
gotoxy<44,2) ;  wr i te<NEXT3* .SERVERS) ; 
gotoxy(3,4) ;  wri  te(NEXT3A  .COMB4T)  ; 
end  else 
begin 

gotoxy< 3,2);  wri t e (NEXT3* .NEXTA .TIPE); 
gotoxy(9,2) ;  wri te(NEXT3A .NEXT A. START > ; 
gotoxy<16,2) ;  wr i te<NEXT3A .NEXTA . IND) ; 
gotoxy(21 ,2) ;  wri te<NEXT3A .NEXT* .DISTR) ; 
gotoxy(29,2) j  wr i te<NEXT3A .NEXT* ■ PARAM) ; 
gotoxy(37,2) ;  wr i te<NEXT3* .NEXT* .ACTNU1) ; 
gotoxy<44,2) ;  wr i te<NEXT3* .NEXT* .SERVERS) ; 
gotoxy(3,4) ;  wri  te<NEXT3*. NEXT*. COftlENT) ; 
end; 
repeat 

gotoxy<52,7) ;  writet'  '>5 
gotoxy(0,7) ; 

writet'Do  you  want  to  delete  this  entire  activity?  '); 
wr ite('Y/N  - >  '); 


read(ANS) ; 

until  <<«*IS-7Y7)  or  0*IS=7N7)>; 

•nd; 

(***»*»»*•**«***  FINDACT  t>»»»*M****»H*»**H»H«m»* 

*  Finds  tht  selected  nod*  and  then  either  deletes  the  * 

*  node  or  calls  CrtfGACT.  ,  • 

*  Called  by  i  unit  EDIT  * 

«**««*»«»*«»«*»««»**»******#*»*****«******»*****«»**»*«*) 

procedure  FINOACT ; 
begin 

if  (BASE3  -  nil)  then 

begin  wri tel n( 'Can't  find  7 ,STRSELEC, ELEMENT) ; 
wr i t*1n(7(CR>  to  continue7);  read<ANS>; 
ex  it (FINDACT); 
end;  (s  of  then  *) 

FINDER :»true; 

if  <NEXT3A  .ACTNUM  »  ELEMENT)  then 
begin  60TACT; 

if  <ANS  *  7Y7)  then  BASE3:»BAS£3* .NEXT 
els*  CWIGACT; 

end 

els*  begin 

FINDERs-false; 

repeat 

if  <NEXT3A  .NEXTA  .ACTNtff  <>  ELEMENT)  then 
NEXT3  j*4ECT3A  .NEXT ; 
until  ((NEXT3*.NEXT-nil> 
or  (NEXT 3 A  .NEXT*  .ACTNtff ELEMENT) ) ; 
if  (NEXT3*.NEXT-nil)  then 

begin  wri t*ln(7Can't  find  7 .STRSELEC, ELEMENT) ; 
wri te1n(7(CR>  to  continue7);  read(ANS) ; 
ex  it  (FINOACT); 
end;  (•  of  then  •) 

GOTACT; 

if  (ANS  *  7Y7)  then  begin 
gotoxy(0,16) ; 

wri tel n(7 Remember  to  delete  any  parameter  sets7) 

writ*(7  if  necessary7) ; 

writ*(7(CR>  to  continue7);  readln(ANS); 

NEXT 3* .NEXT : -NEXT 3* .NEXT* .NEXT ;  end 
else  begin  NEXT3j*«XT3a.NEXTj  CHNGACT;  end; 
end;  (*  of  els*  *) 

end; 

begin  end. 


100 


<**********«#**JHt*****»*»»***»#**»»*****»#»»»**»» 

*  This  unit  is  linked  to  QGERTNET.  It  allows  * 

*  the  user  to  change/delete  parameter  sets.  * 

*  Written  by  :  Anderson  4  Ccmme-ford  » 

»*»*»*«-»***  **•»***»•******»«*********»*»*#•**»»*) 

<**S+*> 

unit  EDITPARj  (*  saved  as  UEDITPAR.TEXT  *) 

interface 

uses  GLOBAL) 

procedure  FIND PAR; 

implementation 

(»*****«**»**»«*  CHNGPAR  ********************** 

*  Allows  changes  of  certain  fields  to  parameter  * 

*  sets.  Called  by  :  FI NO PAR  * 

tHUHHHHHHHHHHHHHHHHHHUHHUHHHHHHHHHUHHHHHUHHUHHHW  ) 

procedure  CtftIGRAR) 
begin 

writeln)  write('To  change  a  field  above,  type  in  the 
writelnt'f irst  letter  '); 

writeln('or  number  of  the  field  you  want  to  change.7)) 
writelnt'A  blank  field  is  the  default  value.'); 
writelnt'You  may  type  a  Q  when  you  are  done  with  this  '); 
wr i te< 'parameter  set.')) 
while  <ANS  <>  'Q')  do  begin 
repeat 

gotoxy<30,14) ;  wri te('  ') 

gotoxy<20,16) }  write<'  ') 

gotoxy<0,14) j  write<'Enter  your  choice  '); 
wr i te<'(P,l ,2,3,4, C,Q)  — )  ')j 
read(ANS) ) 

until  <(ANS*'F')or<AN^'l ')or<ANS*'2')or(AN9»/3'> 
or  4' )  or  <ANS«'  C' )  or  <ANS-'  Q' ) ) ; 

if  <AN^'Q')  then  exi  t<CWGPAR> ) 

gotoxy<0,14) ;  writet'Enter  new  value  - >  ')) 

case  ANS  of 

'P'»  readln<NEXT4A.PARAM); 

'1' i  readln<NEXT4A .PARI ) ; 

'2' i  readln<NEXT4A.PAR2) ; 

'3':  readln(NEXT4A.PAR3)j 
'4' i  readln<NEXT4A.PAR4) j 
'C'l  readl  n(NEXT4A  .CCtflENT)  j 
end)  <*  of  case  stmt  e) 

gotoxy<0,2) jwri te( '  ' 

wr i te<'  ')) 


gotoxy<3,2) ;  uri ta<NEXT4*.TIPE>; 
gotoxy<9,2) j  wr i ta<NEXT4*  .PARAM) ; 
gotoxy<22,2) ;  wr i ta<NEXT4* .PARI) j 
gotoxy<30,2) 5  mt i ta<NEXT4* .PAR2) 5 
gotoxy<38,2) ;  wr i ta<NEXT4* .PAR3) j 
gotoxy(46,2) |  mt i  ta<F€XT4*.PAR4)  j 
gotoxy<3,4)  f  mt i  ta<NEXT4*.C0mENT)  j 
•ndf  <»  of  whi It  *) 

•nd| 


<  90TPAR 

•  Aftar  finding  salactad  paraaatar,  displays  * 
»  infonsation  of  that  paraaatar  sat  and  asks  if  » 

•  dtlttion  is  dasirad.  * 

«  Cal  lad  by  t  FINDPAR  « 


procadura  SOT PAR; 
bag  in 

mt i ta(chr<12)); 

Mri talnC'Hara  is  your  paranatar  satOj 

Mri tat'  TYPE  P<ARAM  SET#  PAR<1>  PARC 2)  PAR<3>  '); 

wri  ta( 'PARC 4)0 1 

gotoxy<0,3)|  Mritat'  CtBtlENT'); 
if  FINDER  than 
bagin 

gotoxy<3,2>)  Mr i ta<NEXT4A .TIPE) j 
gotoxy(9,2) ;  mt i ta(NEXT4* .PARAM) ; 
gotoxy<22,2) j  mt i ta<NEXT4* .PARI ) j 
gotoxy<30,2) j  Mrita<NEXT4A.PAR2> j 
gotoxy<38,2)  j  mt  i  ta<NEXT4A  .PAR3)  | 
gotoxy(44,2) j  mt i ta<NEXT4A .PAR4) j 
gotoxy<3,4)  ;  Mr  i  ta(N0CT4A  .  CGW1ENT)  | 
and  alsa 
bagin 

gotoxy<3,2) |  Mr i ta<NEXT4* .NEXT* .TIPE) | 
gotoxy<9,2) |  Mri ta<NEXT4*.NEXT* .PARAM) j 
gotoxy<22,2) j  mt i ta (NEXT 4A .NEXT* . PARI ) | 
gotoxy(30 ,2) ;  Mr i ta<NEXT4A .NEXT* .PAR2) ; 
gotoxy<38(2) j  mt i ta<NEXT4A .NEXT* .PAR3) j 
gotoxy<46|2) ;  Mr itaCNEXT4*.NEXT*.PAR4) } 
gotoxy<3,4);  Mr  it  T4a .NEXT* .COtlENT) } 
and  | 
rapaat 

gotoxy<57,7)|  Mri's 
gotoxy(0,7) \ 

Mri tat 'Do  you  Mant  it  jdfta  this  antira  parmatar  ' ) ) 
mt i tat'sat?  Y/N  — >  ')} 
raadtANS) j 

until  <<ANS-'Y')  or  <ANS-'N'))j 

and  | 
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( *•*»***»*•**•**  FINDPAR  ********************** 

*  Finds  the  selected  parameter  set  and  then  * 

*  either  deletes  the  set  or  calls  Crt'iGPAR.  » 

*  Called  by  :  unit  EDIT  * 

************************************************ ) 

procedure  FINDPAR; 
begin 

if  (BASE4  -  nil)  then 

begin  wri teln<7Can*t  find  7 ,STRSELEC,  ELEMENT) ; 
writeln<7<CR>  to  continue7);  read(ANS) ; 
exit (FINDPAR) | 
end;  (*  of  then  »> 

FINDER j-true; 

if  <NEXT4*.PAfWM  -  ELEMENT)  then 
begin  GOT PAR; 

if  <PNS  *  7Y7 )  then  BASE4i«BASE4* .NEXT 
else  CHN6PAR; 

end 

else  begin 

FINDERj-false; 

repeat 

if  <NEXT4A  .NEXT*  .PARPM  <)  ELEMENT)  then 
NEXT4I-NEXT4*  .NEXT; 

until  < (NEXT4* .NEXT«n i  1  >  or  <NEXT4A .NEXT* .PARATWLEMENT)) ; 
if  (NE)CT4A .NEXT-n i  1 )  then 

begin  wri teln<7Can*t  find  7 .STRSELEC, ELEMENT); 
wr i teln<7<CR)  to  continue7);  read<ANS); 
ex  it (FINDPAR); 
end;  (•  of  then  •) 

GCTPAR; 

if  (AN3  -  7Y7)  then 
NEXT4*  .NEXT  I-NEXT4*  .NEXT*  .NEXT 
else  begin  NEXT4 «»4CXT4A .NEXT ;  ON6PAR;  end; 
end;  (•  of  else  «) 

end; 

begin  end. 


<»***»»•****##***«»*#********»»*****« •***#*«**«»* 


*  This  is  the  ms  in  editor  unit  snd  is  linked  to  * 

*  QGERTNET.  It  presents  s  ms in  menu  which  ssks  * 

*  the  user  whst  kind  of  symbol  needs  to  be  * 

*  chsnged/deleted.  It  then  cslls  the  sppropri-  * 

*  ste  unit]  i.e.  UEDITSR,  UEDITSS,  ...  * 

*  Written  by  :  Anderson  4  Come -ford  * 


< *tS+ft) 

unit  EDIT}  <»  ssved  ss  UEDIT.TEXT  *> 

interfsce 

uses  TURTLE6R,  GLOBAL,  RITE, 

<*SU  tf4tUINN.C0DE  *)  IMS) , 

<«tU  #4iU0UT.C0DE  *)  OUT, 

<»*U  #4 i UEDITSR. CODE  *>  EDITSR, 

<*SU  *4 t UEDITSS. CODE  *>  EDITSS, 

<*SU  *5:UEDITQUE.C0DE*>  EDITQUE, 

<*4U  #4: LED I TACT. CODE  •)  ED I TACT, 

<*W  44 : UEDITPAR . CODE  *)  EDITPAR; 

procedure  EDITOR; 

implementstion 

<  OTHERWISE 

*  Depending  on  whst  user  wsnts  to  edit,  sets  up  • 

*  sppropri ste  link  list  snd  cslls  FIND  procedure* 

*  Celled  by  i  EDITOR  * 

procedure  OTHERWISE; 

begin 

esse  SELEC  of 

7B7,7C7i  begin  NEXT1 i-BASEl ; 

STRSELECi»'node  number7;  end; 

7D7 ,7F7 i  begin  NEXT2I-8ASE2; 

STRSELECs-'node  number7;  end; 

7E7  i  begin  NEXT3i«8ASE3; 

STRSELECt»7sctivi ty  number7;  end; 

7G7  i  begin  NEXT4i>BASE4j 

STRSELEC:«7psr erne  ter  set  number7;  end; 

7H7  :  begin  NEXT3i-8ASE3; 

STRSELECi*7node  number7;  end; 
end;  (»  of  esse  stmt  *) 
if  < SELEC  <>  717>  then  begin 
writeln;  write<7Edit  which  7,STRSELEC,7  — >  7); 
resd1n( ELEMENT) ; 
end;  <»  of  then  *) 


wV 


ill 


SAFETY s»fal s#; 
cast  SELEC  of 

'B'.'C's  FINDSOUREG; 
'D' ,'F' :  FINDSTASIN; 
'E'  t  FINDACT ; 

'6'  t  FIND PAR 5 

ill/  .  IP  . 


end; 
end  j 


'  I  FIND  PAR} 

'  i  FINDQUE; 

'  i  begin  UPDATE:-true }  SAYESCREEN; 
LOADSCREEN}  UPDATE :-f  a 1 *# j 
•nd; 

<»  of  cast  »> 


INITTURTLE; 


<  *#*tt*#»*******4  LISTER 

•  Lists  tht  main  menu  of  tht  tditor  and  gats  that 

*  answer.  Cal  ltd  by  s  EDITOR  « 

procedure  LISTER; 
begin 

writt(chr<12)>;  writtln;  writtln; 

wr  i tel n< 'Which  of  tht  'following  do  you  want  to  adit:'); 

wri ttln(/  A)  Quit  tht  tditor'); 

wri tel n<'  B)  Source  node'); 

writeln('  C)  Regular  node'); 

wri tel n< 7  D)  Statistics  node'); 

writelnt'  E)  Activity'); 

writtln<'  F)  Sink  node'); 

writtln('  G)  Parameter  card'); 

wri tel n<'  H)  Qutut  node'); 

writtln('  I)  Updatt  -  to  same  filename')} 

repeat 

writtln;  writet'Enter  your  choice  — >  '); 
read<se1ec) ; 

until  < < SELEC  >  chr<64))  and  <SELEC  <  chr<74))); 
end; 


< ***•**•••*•*•••  EDITOR 

•  Main  proc  of  the  editor.  Stays  in  editor  * 

*  until  LISTER  returns  an  A,  then  before  leaving* 

•  makes  sure  that  edited  network  has  been  saved.* 

*  Called  by  i  MENU  * 


procedure  EDITOR; 

<HN+») 

begin 

wri te<chr(12)); 
if  <8AFETY-fa1se)  then 

begin  wr i telnt'SAWE  the  network  first!!'); 
wri teln<'<CR>  to  continue');  read(ANS) ; 
exit (EDITOR); 


•nd; 

if  < 1 ength(FlLENAME)H) )  th»n 

begin  wri te1n('LQAD  your  network  first! !'); 
writeln('(CR>  to  continue ') j  reid(ANS) j 
exi t< EDITOR) j 
end) 

SELECi-'B'  j 

while  (SELEC  <>  'A')  do  begin 
LISTER) 

if  <SELEC  -  'A')  then 

begin  if  (not  SAFETY)  then  SAME SCREEN) 
exi t (EDITOR) {  end) 

OTHERWISE) 
end)  (•  of  while  ») 
end) 

begin  end. 


■V-  .V 


<»**#ft*»ft**»**tt*4«***ft4*»*********»*«******»**»*****«»**** 

*  Calls  th»  initialization  routines,  loads  shapes,  loops  * 

*  in  MYPLOT  till  the  EXT  routine  is  called.  As  MYPLOT  * 

a  draws  the  network,  a  data  structure  <made  up  of  link  * 

*  lists)  is  built  from  the  in-formation  supplied  by  the  • 

»  user  in  xxxINFO  procedures.  This  data  is  used  by  the  * 

*  program  CODEGEN  to  generate  Q6ERT  source  code.  Fran  • 

*  this  program  networks  can  be  SAWEd,  LQADed,  created,  • 

*  and  EOITed.  Also,  the  program  C0DE6Bt  can  be  executed  * 

*  to  generate  QGERT  source  code  of  a  network.  e 

*  Written  by  t  Anderson  &  Come  ford  • 

*  Modification  of  a  program  written  by  Dan  Sokol.  * 

program  QGERTNET; 

(*SS++*) 

uses  PEEKPOKE , TURTLE GR , CHAINSTUFF , GLOBAL , RITE ,N0DE1NF0 , 

ACT PAR, 

(•tU  44:UINN.C0DE«)  IW, 

(**U  #4 : UOUT . CODE*)  OUT, 

(*4U  44 : UEDITSR . CODE* )  EDITSR, 

(**U  44jUEDITSS.C0DE*>  EDITSS, 

<*4U  45:UEDIT«JE.C00E*>  EDITQUE, 

<*4U  44:UEDITACT.C0DE«)  EDITACT, 

<**U  44:UEDITPAR.C00E«)  EDITPAR, 

(*4U  49>UEDIT .CODE*)  EDIT] 

var  HEAP  i  A integer) 

ft/CV  MMMlf  MMMMM  MMMMMMM  "  ■  ■  M  M  ■  M 

*  Replaces  applestuff  KEYPRESS  function  which  doesn't  work  * 

*  if  there  is  a  card  in  slot  43.  Called  front  GETXY  * 

»***»**«»•«»»*»****«»***»*»»*»#*«»****#»**«**«•*«******»***»*) 
function  KEY  t  boolean) 

var  CLEAR, KEYBOARD, TEMP  t  integer) 
begin 

CLEAR  l—l  6348 1  KEYBOARD  I— 1 4384 ; 

TBIPt -PEEK (KEYBOARD) j 
if  TEMP  >  128  then 

begin  KEYi-true)  POKE (CLEAR, TEMP ) )  end 
else  KEYt-false) 
end) 

(e*«****e*«ee»e*  SETUPAD  It  READ PAD  e***************** 

*  Assembly  language  procedures  to  setup  and  * 

*  read  the  Braphics  Tablet.  * 

*  Called  by  t  QETXY  and  Main  program  loop  * 

*#****#»##*#*#*#»#*«***##*###***###*#***#*****#*»**»**) 
procedure  SETUPAD)  external) 

procedure  READPAO)  external ) 
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( «*****#***»»*«  EXT  »******»»*•*»*•***•»•***»***»****•*»* 

*  The  only  legitimate  exit  -from  QGERTNET  * 

*  Called  byt  MENU  * 

**»«»********««********»*********«**»********»********»»*) 
procedure  ext; 

begin 

wr  i te<chr<12>) i 

write('Do  you  want  to  save  the  screen?  '>5  read(CH); 
it  (Cl *'y'>  or  <CH-'Y'>  then  SAVE  SCREEN 5 
it  SAFETY  then  ex i t(PR0GIW1> ; 
begin  writeln;  writeln; 
write ('The  screen  was  MOT  saved.  '); 
write('Do  you  want  to  exit  anyway? 
read(CH) ; 

it  (CH-'Y'>  or  (CH-'y'>  then  ex i t (program) j 
end; 
end; 


( »*•»*****«**»»  GETXY  *********************************** 

•  Read  tablet  and  get  the  X  &  Y  coordinates.  Deter-  * 

•  mine  it  X  &  Y  are  on  screen  (UALIDXY).  * 

•  Called  byt  MENU,  Main  program  loop  * 

«m«H*H*H*»t*H*««*»***HIH*H******«*H>HX*tX*t») 

procedure  GETXY; 

var  Bl ,86,87,88,09:  integer; 
begin 

B1 t-640;  B9 t«648; 

B6 j-643;  B7t-646;  B8:-647; 
repeat  READPAD; 

PENt-PEEK(Bl) ; 

Xt-236»(PEEK(B7) >*PEEK(B6> ; 

Y 1— 256*<  PEEK<  89) ) *PEEK<  B8) ; 
it  KEY  then 
begin 

UALIDXYi-false; 

Xt— 100}  Yt— 100; 
ex i t (GETXY) ; 
end; 

until  P0^2; 

it(X>-0)  and  (X(280)  and  (Y>«0)  and  (Y<192)  then 
begin  VALIDXYt-true ;  Y;-191-Y;  end 
else  MALIDXYi-talse; 

end; 

(H«H«m«H  PRINTYPE 

e  Prints  out  the  name  ot  the  device  that  will  be  * 

•  plotted.  Determined  by  the  value  ot  D.  * 

e  Called  byt  LI STALL,  GETYPE  * 

procedure  PRINTYPE; 
begin 
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cist  0  of 

0 :  IDENT :-'A*  IhRWLID  a*'; 

1 J I DENT:-' SOURCE  NODE7 ; 

2: IDENT: -'REGULAR  NODE' | 

3: IDENT:-' STATIST ICS  NODE'; 

4 1  IDENT:-'  ACTIVITY'} 

5: IDENT :«'QUE  NODE' ; 

6t IDENT:-' SINK  NODE'] 

•nd;  (a  of  case  *tmt  *) 

Mr i te(lDENT); 

•nd; 

<  #•**••«*•*#*«»***#•**•**  LI  STALL  mtHmtHtHSHt* 

•  List  «11  tht  nints  of  aII  the  devices  that  * 

a  cah  b*  plotted  on  the  text  screen.  * 

*  Celled  by  :  MENU  * 

procedure  LI STALL; 
var  I  :  integer; 
begin 

ttr  i  te(chr<12)> ; 

■for  I  :»1  to  6  do 

begin  Mrite(l,'  -  ');  D:-I;  PRINTYPE;  writeln; 
end; 

gotoxy(0,22) ;  write('<CR>  to  continue');  read(CH) 
end; 

<•#«•*•••«*  FORWARD  REFRENCES  h«h«»«) 
procedure  LISTMODE]  forMard; 
procedure  MENU;  forMard; 
procedure  CANCEL;  forMard; 

6ETYPE  *h*#****»*m»h»h»«»h*h 

•  Sets  up  text  display  to  show  Mhat  is  being  • 

a  plotted  end  the  stetus  of  the  X  Jc  Y  locks.  * 

#  Celled  by  :  MENU  » 

***********************  #*•»***#-»****  ft************  «-»*»***) 

procedure  OETYPE; 
begin 

mt ite<chr<12)) ;  gotoxy  (0,1?); 

Mrite  ('Device  type  >>  ');  PRINTYPE;  CH:-'P'; 
LISTMODE; 

•nd; 


( MYPLOT 

s  Plots  a  device  if  X  it  Y  ere  velid,  a 

a  calls  NB4U  if  not.  a 

a  Celled  by  t  Mein  program  loop.  a 

AA*AAAAAAA«AAft*AAAA»»e«»***AA»*A«»**»#A»**»»*«AA«) 


procedure  MYPLOT ; 
begin 

(AfR  TURTLEGRa) 


10? 


sasaaa 


pencolor  (white); 

if  not  VALIDXY  then  begin  wri  te(chr(7>) ;  MENUjend; 

if  0*0  then  exit  (MYPLOT); 

if  (0  -  4)  then  UALIDXY  j-  true; 

i-f  LOCKY  then  Xi-LASTX; 

i-f  LOCKX  then  Yj-LASTY; 

i-f  MALIDXY  then 

begin  SAFETY  i-f  a  Ise; 
case  D  o f 

It  begin  dr  awbl  ock  (ARROU,  4, 0,0, 21 ,21 ,X,Y, DMOOE) ; 
drawbl ock(N0OEL,4,0 ,0 ,21 ,21 ,X*1 1 ,Y,DMODE> ; 
dr awbl ock (NOOER, 4, 0,0, 21 ,21 ,X*32,Y,DM0DE) ; 
S0URE6INF0; 
end; 

2t  begin  drawb1ock(N0DEL,4,Q,0,21 ,21 ,X,Y,DMODE); 
drawbl ock (NOOER ,4,0,0,21,21 ,X+21 ,Y,  DMOOE) ; 

SOU REG INFO; 
end; 

3t  begin  drawblock(NO0EL,4,0,0,21 ,21 ,X,Y,DMODE) ; 
drawbl  ock  (NOOER  ,4,0,0,21 ,21  ,X+21  ,Y,  DMOOE) ; 
STAS  IN  INFO; 
end; 

4:  ACT  INFO; 

3i  begin  drawblock(QN0DEL,4,0,0,21 ,21 ,X,Y,DMODE) ; 
dr awbl ock (  GNODER ,4,0,0,21,21 ,X*21 , Y , DMOOE) ; 
QUEINFO; 
end; 

6i  begin  drawblock(N0DEL,4,0,0,21 ,21  ,X,Y, DMOOE) j 
dr awbl ock (NOOER, 4, 0,0, 21 ,21 ,X+21 ,Y, DMOOE) ; 
dr  awbl ock (ARROW, 4, 0,0, 21 ,21 ,X+42,Y,  DMOOE) ; 
STAS  ININFO; 
end; 

end;  (*  of  case  statement  *) 

CANCEL;  LISTMODE; 
end; 

DMOOEz-14; 

end; 

LISTMODE  ************************* 

*  More  info  for  the  text  screen.  * 

*  Called  by  >  MENU, OETYPE, Main  program  loop  * 

OOOOOOSMHHHHHHHHHHHWHHHHHHHHHHHHHHHMHHHHHHHHHHHHHHHHHHMt ) 

procedure  LISTMODE; 
begin 

gotoxy(0,15) ;  write(/Mode  ■  '); 
case  CH  of 

'P'l  begin  wri te('Plot  devices');  gotoxy<17,5) ; 
if  LOCKY  then 

begin  write('<(<  X  AXIS  IS  LOCKED  AT  '); 

wri te(LASTY,'  »>'); 
end; 

if  LOCKX  then 


begin  write(7<(<  Y  AXIS  IS  LOCKED  AT 
wr i te(LASTX, 7  >>>7); 

end; 

i-f  (not  LOCKX)  and  (not  LOCKY)  then  write 

<7 

end; 

7B7,7C7,7D7:  write(7setup  lock7); 

'2':  write(7  ??????????  7); 

end;  <*  of  case  stmt  •) 
gotoxy(17,5> ; 

if  (not  LOCKX)  and  (not  LOCKY)  then  write 
(7  '); 
end; 

( ****************  CLEARSCREEN  ******************* 

•  Clears  Hires  screen  1.  Called  by:  MENU  • 
******************•****************************•) 
procedure  CLEARSCREEN; 

begin 

write(chr<12)) ; 

write(7C1ear  the  screen  -  Are  you  sure?  7); 
read(CH);  if  (CH-7Y7)  or  <C fH7y7>  then 

begin  initturtle;  re 1  ease ( HEAP) ;  BASEl:-nil; 
BASE2 :-n i 1 ;  BASE3:*ni1;  BASE4:«nM; 

BASES i-n i 1 ;  FILENAME:-7 7 ; 
end; 

end; 

<»****•*••*  CANCEL  ****************************** 

•  Fixes  text  screen  on  leaving  any  comand.  * 

•  Called  by:  MENU,  MYPLOT,  Main  program  * 

a***********************************************) 
procedure  CANCEL; 

begin 

wri te(chr(12)) ; 

gotoxy(27, 12) ;  write(7***  NO  MODE  ACTIVE  ***'); 
wri te<chr(7)> ;D:»0;  CH:-7Z7; 
end; 

<  ***************  SETLOCK  ************************** 

»  Locks  the  x  or  y  coordinate;  or  clears  the  lock.  * 

»  Called  by  :  MENU  » 

*******************HHJ  ******************* ************) 

procedure  SETLOCK; 
begin 

case  CH  of 

7C7:  begin  writeln;  writeln; 

write(7Use  pen  to  select  row7); 

repeat  GETXY;  until  VALIDXY;  LASTX:-X;  LASTY:-Y 

LOCKX :-t rue;  LOCKY :-fal se ;  end; 

7D7:  begin  writeln;  writeln; 


write('Use  pen  to  select  column'); 

repeat  GETXY;  until  VALIDXY;  LASTX:=X;  LASTY : =Y ; 

LOCKX:=false;  LOCKY:*true;  end; 

►gin  L0CKX:=fal  se ;  LOCKY:=f  al  se ;  end; 

<*  of  case  *) 


L0CKX:*f al  se ;  L 
'B':  begin  L0CKX:=fal 
end;  <*  of  case  *> 
end; 


<»#»»#«»  MENU  ************************ 

*  Mode  selection  happens  here.  * 

*  Called  by:  MYPLOT  * 

*«#**»»****e***#*»*****«**ft***e**#***«e) 
procedure  MENU; 

const  STR*' CODEGEN' ; 
war  XPOS,  YPOS  :  integer; 
begin 
D:*0; 

(*  actual  walue  of  the  divisor  may  *) 

(*  wary  -from  tablet  to  tablet  *) 

XPOS:»trunc<<X+65)/16.0> ; 

YPOS:=trunc<<Y-224)/U.O> ; 
case  YPOS  o-f 

3:  case  XPOS  o-f  <*  Bottom  row,  left  to  right  *) 
0:  begin  CLEARSCREEN;  CANCEL; LISTMODE; end; 

1:  begin  SETCHAIN(STR) ;EXT ;end; 

2:  begin  LOADSCREEN ;  CANCEL ; LI STMODE ;  end; 

3:  begin  SAVESCREEN;  CANCEL ; LI STMODE ;  end; 

4:  EXT; 

5:  begin  LI  STALL;  CANCEL;  LISTMODE;  end; 

6:  begin  EDITOR;  CANCEL;  LISTMODE;  end; 

7:  begin  CH:-'B';  LISTMODE; 

SETLOCK;  CANCEL;  LISTMODE;  end; 

8:  begin  CH:-'D';  LISTMODE; 

SETLOCK;  CANCEL;  LISTMODE;  end; 

9:  begin  CH:«'C' ;  LISTMODE; 

SETLOCK;  CANCEL;  LISTMODE;  end; 

10:  begin  wr i te<chr<7) ) ;  gotoxy(0 ,22) ; 

wr i te< 'memory  available  is  ',memavail>; 
end; 

end;  <*  of  YP0S«3  *> 

<*  2nd  row  from  the  bottom  *) 

2:  begin  D:*XP0S+1; 

if  D>6  then  Di»0;  GETYPE; 
end; 

<#  3rd  row  from  the  bottom  *) 

1:  begin  D:*XPOS+20; 

if  D>20  then  D:«0;  GETYPE; 
end; 

end:  <*  of  YPOS  case  stmt  ») 


r 


<»***************  MAIN  PROGRAM  LOOP  *********************) 


begin 

<*4N+*) 

<**R  PEEKPOKE , READPAD*) 

<*  initialize  booleans  *) 

SAFETY s*true; 

HELLFREEZESQVER:-faIse; 

UPDATEj-false; 

BASE1 :*n i 1 ; 

BASE2 :«n i 1 ; 

BASE3 :*n i 1 ; 

BASE4:*n i 1 ; 

BASES  :*n  i  1 ; 

FILENAME:*"  j 
INVERSE  s*  -false; 

LOCKX:*  false; 

LOCKY:*  false; 

<*  initialize  plotting  mode  *> 

wr  i  te<chr<7)>  ;v*r  i  te(chr<7>>  ;wr  i  te<chr<7)) ; 

OMODE:*14;wri te(chr<12)) ; 

gotoxy(25,12) ;  write(' loading  the  QGERT  symbols'); 
GETSHAPES; 

(*  setup  pad  and  screen  *) 

SETUPAD;  INITTURTLE; 

(*  setup  text  screen  *> 

CANCEL;  LISTMOOE;  mark (HEAP); 

(*  let's  doit  *> 
repeat 
GETXY; 

MYPLOTj 

until  HELLFREE2 ESOWER ; 
end. 


Appendix  J| 
Program  CODEGEN 


<*»»****«***ft4HHHHHHH»*4»******»**«*4«»**»****«*#* 

*  This  program  is  the  sane  as  the  unit  UINN  * 

*  except  that  it  does  not  have  any  graphics.  * 

*  It  ums  not  considered  necessary  to  have  » 

*  graphics  to  generate  source  code.  It  loads  • 

»  the  data  structure  of  a  SAUEd  network  into  * 

*  link  1 ists.  * 

*  Called  by  i  COOEGEN  * 

*  Written  by  s  Anderson  fc  Comne-ford  * 

*»*******»**#»»**»•*»*»»**•**»*»*»*»»»***»»***»*) 

<*SS+*) 

unit  LOADER;  <•  saved  as  ULQADER.TEXT  *) 

interface 

uses  GLOBAL; 

procedure  INGATA<var  SRFF:  SOUREGFIL; 

var  SSFFi  STASINFIL; 
var  AFF  :  ACTFIL; 
var  PFF  :  PARFIL; 
var  OFF  :  QUEFIL) ; 

procedure  LOADSCREEN; 

implementation 

procedure  INDATA; 

var  DUMMY  s  string; 

AGAIN  i  boolean; 

ANS  :  char; 

begin  wr i te<chr<12>) ; 

wr i teln< 7  GENERATING  QGERT  SOURCE  COOE7); 

writeln; 

wr i te( 'Generate  source  code  for  what  file  — >  7>; 
readlnt FILENAME) ; 

if  length (FILENAME)  -  0  then  ex i t(INOATA) ; 
if  lengtht FILENAME)  >  10  then 

begin  writeln;  wri tel n< 'Filename  too  long! ! 7 ,chr<7)) 
ex it< INDATA); 
end; 


DUMMY  concat(FILENAME,7. SOURED7); 


<#*!-*) 

reset(SRFF, DUMMY) ; 
i-f  (IORESULT  <>  O) 
then  begin  writeln; 

wri teln(7File  called  7 , DUMMY,'  not  found7) 
wri te!n(7(CR)  to  continue') ;  read(ANS) i 

<*♦1-*) 

FINDER «*fal  se  jex  i  t  UNDATA)  ;end; 
wri  teln;wr  ite1n(7Reading  7 ,  DIM1Y , 7  -from  disk7); 
BASE I i*ni 1 ; 

while  not  eof(SRFF)  do  begin 
new<NEXTl ) ; 

NEXT1A  i-  SRFFA ; 

NEXT 1A. NEXT: -BASE I ;  BASE1 »*NEXT1 ; 
get(SRFF) ; 
end; 

close(SRFF); 

DUMMY  :«  concat (FILENAME, 7  .STASIN7 ) ; 
wri  tel  njwri  tel  n( 'Reading  7,  DUMMY,7  -from  disk7); 
reset(SSFF,DUMMY) ;  BASE2i-nil; 
while  not  eof(SSFF)  do  begin 
new<NEXT2) ; 

NEXT2A  i-  SSFFA; 

NEXT2a.NEXTj»BASE2;  BASE2:-NEXT2; 
get(SSFF) ; 
end; 

close(SSFF) ; 

DUMMY  i*  concat (FILENAME, 7 .QUE7) ; 
wri  tel  n;wri  tel  n( 'Reading  7, DUMMY, 7  -from  disk7); 
reset(QFF,DUMMY) ;  BASES s-ni 1 ; 
while  not  eof(QFF)  do  begin 
new(NEXTS) ; 

NEXT3A  QFFA ; 

NEXTSA .NEXT :*BASE5;  BASES :«NEXTS; 
get(QFF); 
end; 

close(QFF) ; 

DlfflY  i*  concat  (FILENAME, 7  .ACT7) ; 
wri teln;writeln(7Reading  7, DUMMY, 7  -from  disk7); 
reset(AFF, DUMMY);  BASE3:«n i 1 ; 
while  not  eof(AFF)  do  begin 
new(NEXT3) ; 

NEXT3A  i-  AFFA; 

NEXT3A .NEXT i*BASE3j  BASE3t-NEXT3; 
get(AFF) ; 
end; 

close(AFF) ; 


DlftlY  s-  conc*t<FILENAME, '  .PAR' ) ; 
writelnjwritelnt'Reading  ',Nlt1Y,'  -from  disk')] 
reset<PFF,Dt*t1Y) ;  BASE4 j»n i  1  ; 
while  not  eo4<PFF)  do  begin 
new<NEXT4) ; 

NEXT4A  i-  PFFA; 

NEXT4A .NEXT  *-  BASE4;  BASE4  :»  NEXT 4; 
get(PFF) } 
end; 

cloee(PFF) ; 


<  m*»»*»h»»**»*  LQADSCREB4  *****«#*****#*#*♦*«) 


procedure  LQAOSCREEN; 

begin  INDATA<SRF,SSF,AF,PF,QF) ;  end; 


begin  end. 


<  ***•**«***»•**•  CODEGEN  ********************** 

*  This  program  -first  LQADs  a  SAWEd  network,  then* 

*  builds  and  writes  a  General  card  to  the  source* 


*  code  text  -file.  The  source  code  tor  Source  * 

*  nodes  follows.  Then  source  code  -for  Regular,  • 

*  Stat,  and  Queue  nodes}  Activities}  and  Par-  * 

*  am*  ter  Sets.  After  the  complete  source  code  • 

*  is  written  and  reviewed,  QGERTNET  is  automat-  * 

*  ically  executed  with  the  chain  command.  • 

»  Called  by  :  MENU  of  QGERTNET  * 

*  Written  by  s  Anderson  4  Commeford  • 


************•****»**»**»*********»*****»•*******) 

<«*s++ft) 

program  CODEGEN ; 

uses  CHA INSTUFF,  GLOBAL, 

<*SU  NS : ULOADER . CODE*)  LOADER; 

const  ST  RNG-' QGERTNET' j  (ft  used  in  chain  command  *) 

type  LINKA  *  A NODECODE ; 

NODECODE  *  record 
NEXT  :  LINKA} 

CODE  :  string! 721 ; 

end) 

LINK8  *  ASINKCODE; 

SINKCODE  *  record 
NEXT  :  LINKB} 

CODE  :  string! 721; 

end} 

var  NEXTA,BASEA  :  LINKA}  (ft  stores  the  source  code  *> 

NEXTB , BASEB  i  LINKB}  (ft  stores  the  source  code  ft> 

DIFF,K  :  integer;  (ft  used  to  tab  comment  field  *) 

UORKST  :  string;  (ft  used  to  generate  code  •) 

ST1 ,ST2  :  string!2I:  (ft  counts  stat/sink  nodes  *> 

SOURCECODE  s  text;  (ft  text  file  for  source  code  *) 

(»••»*****»•****  STATSEARCH  ******************* 

*  Searches  for  and  counts  stat  and  sink  nodes  * 

«  in  the  link  1 ist.  * 

•  Called  by  s  GENERAL CARD  * 

a***********************************************) 

procedure  STATSEARCH} 
var  N,N  :  integer; 

begin 

NEXT2t»BASE2;  Ms-0;  Ns-0; 

BASEAs-ni 1 ;  BASEB s-n i 1 ; 
while  (NEXT2  <>  nil)  do  begin 
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UORKST :-concat(NEXT2A .TIPE, ' , ' ,NEXT2A .NODENUM, ' , ' )  j 
UORKST :*concat(UORKST,NEXT2A . INITIAL, ' ,') ; 

UORKST :-concat (UORKST, NEXT2A .SUBSEQUENT, ' ,'>5 
UORKST !-concat (UORKST ,hEXT2A  .BRANCHING, ' , ' ) ; 

UORKST s-concat (UORKST ,NEXT2A . STAT  ,' , 7 ) 5 
UORKST : -con cat (UORKST  ,NEXT2A .UPPER, ' ,') ; 

UORKST ! -cone at ( UORKST, NEXT2A .UI DTH , 7 , ' ) ; 

UORKST >— concat (UORKST  ,NEXT2A .CHOICE,'*') ; 

OIPFi-30  -  I tngth (UORKST) j 
■for  Kj-1  to  OIFF  do 

begin  UORKST  »-concat  (UORKST, '  ');  end; 

UORKST  :-concat  (UORKST  ,NEXT2A . COttlENT)  ; 
if  <HEXT2A .T1PE  -  'STA') 

thtn  begin  ;  new(NEXTA) j 

NEXTAA . CODE i -UORKST j 
NEXTAA .NEXT :-BASEA;  BASEA  j-NEXTA; 

•nd 

•Is*  begin  Ni-N+l;  new(NEXTB) ; 

NEXTBA .CODEiHJORKST ; 

NEXTBA  .NEXT  i-BASEB  5  BASEBs-NEXTB; 

•nd; 

NEXT2s^EXT2A  .NEXT; 

•nd;  <•  of  while  *) 
str(M,STl ) ;  str(N,ST2) ; 

•nd; 


( »**»»*»»****«**  GENERALCARD  ****************** 
•Builds  the  General  card  and  writes  it  to  the  • 

•  source  code  text  file.  • 

•  Called  by  1  CODE BEN  • 

*»**»**»#*»***»**»**»*****»**«»****«»**#***»*»**) 


procedure  GENERALCARD; 


begin 

wri te(chr(12)) ; 

writelnC'  GENERATING  QGERT  SOURCE  CODE'); 

writeln('  Memory  available  is  ' ,ra«navai 1 ) ; 

wri teln;wr i te('Enter  your  name  — >  ');  readl n(UORKST) j 

ST  J-COncat('0EN,'  ,UORKST)  j 

wr i te( 'Enter  project  name  — >  '); 

readl n (UORKST); 

ST s-concat<ST,' UORKST); 

write ('Enter  date  as  ft1,DD,YYYY  — >  '); 

readl n (UORKST); 

ST !-concat(ST, ' , ' , UORKST) ;  f 

STAT SEARCH; 

ST i-c one at (ST,' ,ST1 ,ST2)  j 

write('Enter  number  of  sink  node  releases  to  '){ 

write('end  a  run - >  '); 

readl n(UORKST);  1 

ST :«concat(ST,' , ' , UORKST) ; 
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write('Enter  time  to  end  one  run  of  the  network  '); 
write<' — >  '); 
readlnt UORKST) ; 

ST :»concat ( ST , ' , ' , UORKST) ; 

writet 'Enter  number  of  runs  of  the  network  - >  ') 

readln(UORKST) ; 

ST :»coocat(ST, ' , '  , UORKST)  j 

writet'Enter  type  of  output  reports  desired  '); 

wri te('(F,E,C  or  S)  - >  '); 

readl n (UORKST) ; 

ST  »»concat < ST , ' , ' , UORKST , ' »' ) j 
wri tel n( SOURCE CODE, ST) j 
end; 

( »*«•**»••«•••••  SOURCESEARCH  a**************** 

•  Searches  for  Source  nodes  and  inmediately  * 

»  writes  them  to  source  code  text  file.  Also  * 

•  finds  the  Regular  nodes,  builds  their  source  • 

•  code  and  writes  it  to  the  source  code  text  » 

•file  after  all  Source  nodes  are  written.  • 

»  Called  by  :  CODEGEN  • 

»»•»»••*»*»•♦»••••»•••»••••••••»»»»»»»*••»«»*»»») 

procedure  SOURCESEARCH; 

begin 

NEXT1 1 -BASE  1 ; 

while  (NEXT1  <>  nil)  do  begin 

UORKST i-concat <NEXT1  A.TIPE,'  ,'  ,NEXT1  -  .NODENUM ,  V 
UORKST :*concat (UORKST ,NEXT1 A .  INITIAL, '  , ' )  ; 

UORKST  J-concat  <WORKST  ,NEXT1  - .  SUBSEQUENT ,','); 
UORKST *«concat<UORKST,NEXTIA  .BRANCHING, ' , ' ) ; 
UORKST  i«concat  (UORKST  ,NEXT1A. MARK,',' >1 

UORKST  :-concat(UORKST,NEXTlA .CHOICE, '*' ) 5 
DIFFi-30  -  length (UORKST) ; 
for  K:«l  to  DIFF  do 

begin  UORKST j-concat (UORKST,'  ');  end; 

UORKST :«concat (UORKST, NEXT1A. COMMENT) 5 
if  (NEXT1A.TIPE«'S0U') 

then  begin  wri tel n ( SOURCECODE , UORKST ) ;  end 
else  begin  new(NEXTA); 

NEXTAA . CODE iHIORKST j 
NEXTAA  .NEXT  i-BASEA ;  BASEAi^iEXTA; 
end; 

NEXT!  i-NEXTl A  .NEXT  5 
endi  (•  of  while  •> 


<  ***************  QUESEARCH  ******************** 

*  Starches  for  Queue  nodes,  builds  source  code,  * 

*  and  immediately  writes  to  the  source  code  * 

*  text  file.  Called  by  :  CODEGEN  a 

************••**********************************) 

procedure  QUESEARCH) 

begin 

NEXT5:«BASE3| 

while  (NEXT5  <>  nil)  do  begin 

UORKST  :*concat(NEXT5A .TIPE,' , ' ,NEXT5A .NODENUM 
UORKST i»concat(U0RKST,NEXT5A . INITIAL, '  , ' )  ; 
UORKST:-c oncat<U0RKST,NEXT3A. CAPACITY, ','> ; 
UORKST !»concat (UORKST .NEXT 5 A . BRANCHING 
UORKST  :«c one at (UORKST ,NEXT3A . RANKING 
UORKST :»concat (UORKST, NEXT5A .BALKERS, ' , ') ; 
UORKST :-concat (UORKST ,NEXT5A .UPPER, ' , ' ) ; 
UORKST :«concat (UORKST ,NEXT5A .WI DTH, ' *' > ; 

DIFF :*30  -  length (UORKST) | 
for  Ks-1  to  DIFF  do 

begin  UORKST :-c oncat (UORKST , '  ');  end) 
UORKST :«concat(U0RKST,NEXT5A  .COMMENT) ; 
wr i tel n( SOUR CECODE , UORKST) ; 

NEXT5  :-NEXT3A  .NEXT  j 
end;  (*  of  while  •) 
end; 

<  ACT IV SEARCH  ****************** 

*  Builds  the  source  code  for  Activities,  and  * 

*  writes  it  to  the  source  code  text  file.  * 

*  Called  by  :  C0DE6EN  * 

a***********************************************) 

procedure  ACTIVSEARCH; 

begin 

NEXT3i— BASE3; 

while  (NEXT3  <>  nil)  do  begin 

UORKST !«concat (NEXT3A .TI PE , ' , ' ,NEXT3A . START , 
UORKST j-concat (UORKST ,NEXT3A . IND , ' , ' ) ; 

UORKST s-concat (UORKST ,NEXT3A . DI STR , ; 
UORKST i»concat (UORKST  ,NEXT3A  .PARAM, ' , ' ) ; 
UORKST  j-concat  (UORKST  ,NEXT3A  .ACTNUM, ' 

UORKST :«concat (UORKST ,NEXT3A . SERVERS ,'*'); 
DIFF: -30  -  1 ength (UORKST) ; 
for  Kj«1  to  DIFF  do 

begin  UORKST :«concat(WORKST, '  ');  end; 
UORKST  :-concat  (UORKST  ,NEXT3A  .CChHENT) ; 
wri tel n(S0URCEC0DE, UORKST) ; 

NEXT3i-NEXT3A .NEXT; 
end;  (*  of  while  *) 


<  **•******»»**»»  PARSEARCH  ******************** 

*  Build*  the  source  cod*  -for  the  Parameter  Sets  * 

»  and  writes  it  to  the  source  code  text  file.  * 

*  Called  by  :  CODESEN  * 

a***********************************************) 

procedure  PARSEARCH) 

begin 

NEXT4t-BASE4j 

while  (NEXT4  <>  nil)  do  begin 

UORKST j-concat  (NEXT4A .TI PE , ' , ' ,NEXT4A . PA RAM 
UORKST  :*c  oncat  (UORKST, NEXT4A.  PARI ) ; 
if  <length<NEXT4A.PAR4)«0)  and  (length(NEXT4A .PAR3)»0) 
then  begin  if  (length(NEXT4A.PAR2)(>0> 

then  UORKST s»concat<WORKST,/ ,/,NEXT4A.PAR2) 5  end 
else  begin  UORKST  :»concat(UORKST,' ,NEXT4A .PAR2) ; 
UORKST s-concat (UORKST, ' ,NEXT4A . PAR3) ; 
if  < length <NEXT4A .PAR4) <>0) 

then  UORKST  s-conc at (UORKST , ' , ' ,NEXT4A . PAR4) 5 
end;  (*  of  else  *) 

UORKST :-concat (UORKST #' ) | 

DIFFi-30  -  length (UORKST); 
for  K i*l  to  DIFF  do 

begin  UORKST :«concat (UORKST , '  ');  end; 

UORKST  i*concat  (UORKST  ,NEXT4A  .CtWIENT)  ; 
wr i t e 1 n ( SOURCECOOE , UORKST) ; 

NEXT4i-NEXT4A.NEXT; 
end;  (*  of  while  •) 
end; 

( »**»**«*•***»**  PRINTCODE  ******************** 

*  After  the  source  code  is  completed  and  written* 

*  to  the  text  file,  displays  the  source  code  on  * 

*  the  screen  for  review.  * 

*  Called  by  :  COO E GEN  * 

************************************************) 

procedure  PRINTCODE; 
begin 

r ese  t ( SOURCECODE) ;wr i t  e ( c  hr ( 1 2) ) ; 
gotoxy(10, 1) ; 

writeln(/This  is  what  was  written  to  DUMMY); 
wri teln; 

Ki»3| 

repeat 

Kj-K  ♦  1; 

if  (K  >  20)  then 

begin  gotoxy(0,23) ;  write('(CR>  to  see  some  more7) 5 
read(CH);  K:»l;  wri teln; 
end;  (•  of  then  *) 


readl n< SOURCECODE, WORKST) ;wr i tel n (WORKST) ; 
until  <UORKST  »  'FINISH*') ; 
writeln;  write('(CR>  to  continue  '); 
read(CH) 5 
end; 

(»**»*  MAIN  PROGRAM  ******) 

begin 

<e*N+#) 

wri te(chr(12)) ; 

wri te(chr(7)) ;  wri te(chp<7>) j  write(chr(7)>; 
FINDER J»true jLOADSCREB*  ; 
if  not  FINDER 

then  begin  setchain(STRNG) ;  ex i t (PROGRAM) ; end 
Dlft1Y:*concat  (FILENAME, '  .TEXT')} 
r ewr  i  te< SOURCECODE , DUtiY)  ; 

GENERAL  CARD; 

SOURCESEARCH j 

while  (NEXTA  <>  nil)  do 

begin  wri tel n< SOURCECODE ,NEXTAA. CODE) ; 

NEXTA  s^EXTA''  .NEXT; 
end;  (*  of  while  *> 

QUESEARCH; 

ACTI VSEARCH ; PARSEARCH 5 

while  (NEXTB  <>  nil)  do 

begin  wr i te 1 n  <  SOURCECODE , NEXTB* . CODE) ; 

NEXTB  l*NEXTBA  .NEXT; 
end;  <•  of  while  *) 

wri tel n< SOURCECODE, 'FINISH*');  PRINTCODE; 
close (SOURCECODE .LOCK) ;setchai n(STRNG) ; 
end. 
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Introduct i on 


This  is  the  operation  manual  for  the  Apple  Graphics  Tablet 
as  used  with  QGERTNET.  The  Tablet  itself  is  a  hands-on 
product,  meaning  the  best  way  to  learn  how  to  use  it  is  to 
experiment'  with  it.  Of  course,  this  manual  is  designed  to 
make  that  experimentation  less  painful.  Therefore,  the  best 
results  will  occur  if  as  you  read  about  the  capabilities  in 
this  manual,  you  also  attempt  them  on  the  tablet. 


The  first  chapter  describes  how  to  set  up  your  Tablet.  It 
closely  follows  Chapter  1  of  the  operation  and  reference 
manual  of  the  Graphics  Tablet.  The  difference  being  that 

this  manual  is  written  specifically  for  the  Pascal  program 
QGERTNET,  not  for  Applesoft  programs.  Chapter  2  describes 
the  various  Pascal  procedures  used  by  the  tablet.  They 
allow  you  to  draw  QGERT  networks  on  a  high-resolution 
graphics  screen,  input  information  on  a  text  screen,  edit 
existing  networks,  and  generate  QGERT  source  code.  You 
don't  need  to  know  too  much  about  the  Apple  computer  or 

Pascal  to  run  this  program.  You  will  have  to  know  QGERT. 

This  manual  is  not  intended  to  be  a  text  on  QGERT,  although 

it  could  be  useful  to  someone  learning  QGERT  in  class  or 
from  a  text  book. 


Gett i no  Started 


Ulhat  You  UJ  i  1  1  Need 


In  order  to  use  this  software  package  you  Mill  need  the 
f  ol  lowing: 

1)  An  Apple  II+,  64K  RAM 

2>  Sup'R'  Term  80  column  board  in  slot  #3 

3)  Graphics  Tablet  board  in  slot  #5 

4)  Two  monitors 

5)  Two  disk  drives 

6)  Modem 

The  above  configuration  is  the  recommended  one.  Minor 

modifications  will  work  at  a  degraded  level.  For  instance, 
only  one  disk  drive  is  necessary  to  run  the  program. 
However,  making  back-up  copies  of  your  disks  is  extremely 
difficult  with  only  one  drive.  Also,  one  monitor  will  work, 
but  you  find  yourself  switching  constantly  from  40  columns 
to  80  columns  and  vice  versa.  This  can  get  confusing  and 
tiring.  The  majority  of  this  software  package  was  developed 
with  only  one  screen,  but  a  toggle  switch  was  used  to  go 
from  screen  to  screen.  Finally,  the  Apple  lie  should  work 
with  this  package  with  no  degradation  at  all. 
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LOAD 


Load  network  -from  disk 


SAVE  -  Save  network  to  disk 

EXT  -Exit  the  program 

LIST  -  Lists  the  available  Q-GERT  symbols 

EDIT  -  Invokes  the  editor 

CLR  LOCKS  -  Clears  any  coordinate  that  has  been  locked 

LOCK  X  -  Locks  the  x  coordinate 

LOCK  Y  -  Locks  the  y  coordinate 

are  now  ready  to  use  QGERTNET  to  help  you  with  QGERT 


s  % 


Boot-Up 


To  start  the  program,  simply  put  the  disk  called  "AUTO"  in 
disk  drive  #1  and  turn  on  the  computer.  Soon  you  see  a 
title  page  with  the  name  of  the  software  package,  authors, 
etc.  At  the  bottom  of  the  screen  you  will  see  a  question 
asking  whether  or  not  you  want  instructions.  These  are  just 
a  condensed  version  of  this  manual.  If  you  ever  need  a 
quick  review,  just  type  aY"  after  the  question.  After  the 
review  <or  if  you  typed  aNa  to  the  review  question)  the  main 
program  automatically  starts  execution. 

S3 

Main  Program 

The  main  program  is  called  QGERTNET .  Through  this  program 
all  actions  are  accessible.  Along  the  bottom  two  rows  of 
the  tablet  you  should  see  the  menu  (if  you  don't,  go  back  to 
Initial  Setup  of  the  first  chapter).  By  placing  the 
graphics  pen  in  one  of  these  blocks,  you  can  select  one  of 
many  commands  or  QGERT  symbols. 

To  select  a  command/symbol,  touch  the  point  of  the  graphic's 
pen  anywhere  inside  the  corresponding  square  and  press  down. 
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Hold  the  pen  down  until  you  hear  a  beep .  If  you  don't  hear 
a  beep,  check  th#  text  icrttn  to  see  if  your  se I c t i on  was 
activated  anyway.  If  it  wasn't  try  depressing  the  pen 
aga i n . 


The  following  pages  describe  each  command  and  symbol.  As 
you  read  about  each  command  or  symbol,  locate  it  on  the  two 
bottom  rows  of  the  graphics  tablet. 


This  is  the  first  of  the  commands  we  will  describe.  It 


allows  you  to  clear  the  graphics  screen.  This  command  would 
be  used  after  you've  finished  a  network  and  want  to  start 
another  one.  Be  careful!  This  command  does  ask  you  if 

you're  sure,  but  once  you  clear  the  graphics  screen,  any 
network  and  its  data  structure  that  was  there  is  gone. 
Therefore,  always  make  sure  that  you  SAWE  your  network 
before  using  this  command.  After  using  this  command  the 
graphics  screen  will  be  completely  blank,  and  the  text 
screen  will  tell  you  that  no  mode  is  active. 


UQftP 


By  selecting  this  command  you  can  load  a  network  and  its 
data  structure  which  you  previously  saved.  Before  you 
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select  this  command  always  make  sure  that  your  graphics 


screen  is  cleared  by  using  CLR.  The  main  use  of  this 
command  would  be  so  you  can  bring  a  network  into  the  Apple7 s 
memory  and  add  to  it.  We  will  talk  about  deleting  or 
changing  a  network  later. 

NOTE  :  When  you  load  a  network,  more  than  one  file  will  be 
opened  and  read.  However,  every  file  that  is  read  will  have 
the  same  prefix  which  you  supply  in  response  to  "Load  which 
file*.  Therefore,  the  data  structure  actually  comes  from  a 
group  of  related  files.  In  this  manual  the  word  file  is 
used  to  designate  this  group  of  related  files. 

SAUS 

This  command  allows  you  to  save  a  network  and  its  data 
structure  to  disk  so  that  you  can  work  on  it  again  in  the 
future  (remember  the  LOAD  function?).  You  can  use  this 
function  any  time  you  want  or  need  to.  You  can  save  a 
network  several  times  during  one  session.  However,  you  must 
realize  that  only  the  last  version  saved  will  be  in  any 
particular  filename.  When  the  text  screen  asks  for  a 
filename,  type  one  in  like  NET,  NET3,  or  whatever  you  feel 
is  appropriate.  The  program  does  the  rest. 
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On*  more  command  before  you  get  to  play.  This  command  is 
the  recommended  way  to  exit  QGERTNET.  It  will  make  sure  you 
have  saved  the  present  network  i-f  it  was  changed  before 
quitting  the  program. 

Exercise  *1 

By  now  you  are  probably  anxious  to  do  something.  Remember, 
experimentation  is  very  important  in  learning  to  use  this 
tool.  So  let's  use  some  of  the  above  commands.  First, 
follow  the  Boot-Up  instructions  at  the  beginning  of  this 
chapter.  Once  you  get  to  the  question  aDo  you  want 
instructions?",  type  "N"  since  you  are  reading  this  manual. 
Those  instructions  are  only  there  if  you  want  a  quick  review 
of  this  manual.  You  now  see  a  statement  at  the  bottom  of 
the  screen  asking  for  a  carriage  return.  Press  the  return 
key  (hereafter  denoted  by  <CR>>  and  soon  you  will  see  the 
text  screen  clear  and  tell  you  that  it  is  loading 
LOGI C . CHARSET .  This  is  a  file  that  contains  the  QGERT 
symbols.  Then  you  will  hear  3  beeps.  This  denotes  the 
beginning  of  any  program  in  this  software  package.  And 
f i nal 1 y  you  see  t 


NO  MODE  ACTIVE 


device  >>>  ???????? 


Whenever  you  see  this  on  the  text  screen,  it  means  the 
computer  is  waiting  -for  you  to  select  a  command  or  symbol. 
Now,  let's  try  the  LOAD  command  by  pressing  the  graphics  pen 
in  the  LOAD  block.  For  the  -file  name  type  NET  <CR>.  As 
soon  as  you  press  the  return  key,  the  computer  will  begin  to 
read  a  file  called  NET  which  was  previously  SAUEd  to  your 
disk.  As  it  is  read  in,  the  text  screen  lets  you  know  which 
part  of  the  file  is  being  read,  and  the  graphics  screen 
starts  to  fill  up.  As  soon  as  the  file  has  been  read  in 
completely,  you  will  see  the  "NO  MODE  ACTIVE"  message  on  the 
text  screen.  That  means  the  computer  is  ready  for  another 
selection. 


Use  the  pen  to  select  the  SAVE  command.  For  a  filename  use 
your  first  name,  then  <CR>.  The  graphics  screen  will  not 
change,  but  the  text  screen  will  tell  you  which  part  of  the 
file  it  is  currently  writing.  As  soon  as  the  network's  data 
structure  is  completely  written  to  the  file,  you  will  see 
the  "NO  MODE  ACTIVE"  message.  You  now  have  two  files  on 
your  disk  containing  network  data. 


8  # 


Let's  next  try  LOADing  the  file  you  just  SAVEd.  But,  what 
must  we  do  first?  Select  the  CLR  command  and  answer  the 


question  with  "Y" .  Notice  how  the  graphics  screen  is 
cleared  and  you  are  returned  to  no  mode  active.  Now  select 


the  LOAD  command  and  enter  your  -first  name  as  the  -filename, 
then  <CR>.  The  network  reappears  on  the  grahics  screen. 

Feel  -free  to  experiment  some  more  with  these  commands.  Uhen 
you  want  to  quit  this  program,  select  the  EXT  command.  By 
answering  the  questions  that  -follow  you  will  easily  and 
naturally  end  the  session. 

LIST 

Before  we  look  at  the  actual  QGERT  symbols,  we'll  describe 
the  LIST  command.  By  selecting  it  you  can  see  a  list  of 
available  QGERT  symbols  on  the  text  screen. 

Now,  let's  look  at  the  QGERT  symbols. 

SQUi..  e£S.».,^T£>»_9y£t...§.IN 

These  are  the  nodes  that  you  can  select.  They  are 
respectively,  SOUrce,  REGular,  STAtistics,  QUEue  and  SINk 
nodes.  Upon  selection  of  any  of  these,  the  text  screen  will 
notify  you  of  the  type  node  you  have  selected.  At  this 
point  the  computer  is  waiting  for  you  to  depress  the 
graphics  pen  a  second  time.  If  you  depress  the  pen  in  the 


graphics  area  of  the  tablet,  then  the  node  you  selected  Mill 
appear  in  that  spot  on  the  graphics  screen.  If,  however, 
you  depress  the  pen  outside  of  the  graphics  area  on  the 
tablet,  you  may  lose  the  present  node  selection.  For 
example,  if  you  depress  the  pen  in  another  menu  block,  you 
will  obtain  that  comman d/symbol .  As  soon  as  the  symbol  is 
drawn  on  the  graphics  screen,  the  text  screen  will  start  to 
ask  you  various  questions.  As  you  answer  these  questions, 
some  of  the  answers  will  appear  on  the  graphics  screen  in 
the  appropriate  spot  to  further  define  your  node.  Other 
answers  will  not  appear  on  the  graphics  screen  but  will  be 
included  in  the  data  structure  for  later  use.  UJhen  you  have 
answered  the  last  question,  you  are  returned  to  the  familiar 
no  mode  active  screen. 

NOTE:  The  character  file  available  for  writing  text  on  the 

graphics  screen  does  not  include  the  infinity  symbol. 
Therefore,  you  will  see  a  on  the  graphics  screen  if  your 
answer  to  a  question  is  infinity. 

A£L 

The  ACTivity  symbol  is  slightly  different.  After  selecting 
it  you  are  told  that  you  are  in  the  activity  mode.  You  do 
not  have  to  depress  the  pen  a  second  time  in  the  graphics 
area  of  the  tablet  as  you  did  with  the  nodes.  You  will 


immediately  be  asked  some  questions.  As  you  answer  them, 
you  will  see  your  activity  drawn  between  the  nodes  indicated 
by  your  answers.  Again,  only  that  information  usually  seen 
on  a  network  will  be  drawn  on  the  graphics  screen,  but  all 
answers  will  be  placed  in  the  data  structure  to  be  used 
later.  After  the  last  question  is  answered,  you  are 

returned  to  the  no  mode  active  screen. 

•  \ 

NOTE:  Activities  on  the  graphics  screen  are  drawn  only  as 
straight  lines.  So,  keep  this  in  mind  as  you  position  the 
start  and  end  nodes  of  an  activity.  Also,  before  attempting 
to  draw  an  activity,  be  sure  you  have  drawn  BOTH  the  start 
and  end  nodes  of  the  activity. 


In  this  exercise,  you  will  make  up  your  own  network.  Don't 
worry  if  you  don't  have  a  real  system  in  mind  to  model.  All 
you  want  to  do  is  to  get  familiar  with  placing  some  symbols 
on  the  graphics  screen.  Start  by  placing  at  least  two  nodes 
(one  at  a  time  of  course)  on  the  graphics  screen.  Answer 
the  questions  anyway  you  want  within  the  indicated 
limitations.  Then,  connect  these  two  nodes  with  an 
activity.  Continue  this  until  the  graphics  screen  begins  to 
get  full.  At  this  point  you  would  have  to  quit.  If  you 
want,  use  the  SAVE  command  to  save  this  network.  Then, 


whether  you  SAUEd  or  not,  use  CLR  to  clear  the  graphics 
screen.  Make  as  many  networks  as  you  need  to  get  familiar 
with  the  tablet  and  these  symbols. 

SELT 

Now  that  you  can  create  your  own  networks,  you  probably  want 
to  be  able  to  change  or  correct  a  network  you  have  SAVEd  to 
disk.  This  is  done  with  the  EDITor.  It  allows  you  to 
change  parameters  in  a  node  or  activity,  or  you  can  delete 
the  symbol  entirely.  Notice  the  editor  is  not  used  to  add  a 
QGERT  symbol;  this  is  done  by  LOADing  the  network  and  then 
adding  the  wanted  symbols  to  the  existing  network. 

Before  you  select  the  EOITor  command,  make  sure  that  you 
have  LOADed  the  network  that  you  want  to  change.  If  you 
want  to  EDIT  the  network  you  are  currently  working  on,  you 
must  SAVE  it  before  entering  the  EDITor.  You  will  be  guided 
through  various  menus  to  make  your  corrections/deletions. 
In  the  main  menu  of  EDITor,  there  is  an  option  called 
UPDATE.  After  you  have  made  several  changes  you  can  update 
the  graphics  screen  to  reflect  these  changes.  However,  if 
you  choose  this  option,  the  changed  network  will  be  SAVEd  to 
the  filename  from  which  it  was  LQADed/SAVEd.  Therefore,  do 
an  UPDATE  only  if  you  don't  mind  replacing  the  original 
network  with  the  changed  one.  Upon  leaving  the  EDITor,  it 


makes  sure  you  nave  saved  the  network  to  some  filename  and 


then  returns  you  to  the  no  mode  active  screen. 

LOCK  X.  LOCK  Y.  CLR  LOCK 


LOCK  X  and  LOCK  Y  allow  you  to  lock  the  x  or  y  coordinate 
for  subsequent  graphing.  For  instance,  you  may  have  several 
nodes  which  you  want  to  line  up  in  the  exact  same  column. 
This  is  easily  done  by  locking  the  x  coordinate.  No  matter 
where  the  pen  is  positioned  in  the  graphics  area,  the  node 
on  the  graphics  screen  will  have  the  x  coordinate  that  was 
locked.  In  the  same  way,  a  horizontal  alignment  can  be 
accomplished  by  LOCK  Y.  Although  these  two  commands  are  for 
cosmetic  purposes  only,  it's  a  good  idea  to  learn  how  to  use 
them.  They  are  extremely  useful  in  positioning  a  new  node 
in  place  of  a  deleted  one.  After  you  are  finished  using  a 
LOCK  X  or  LOCK  Y,  you  clear  the  lock  by  using  CLeaR  LOCK. 


6*?rc;i?f  #3 

This  exercise  wi  1 1  get  you  familiar  with  the  EDITor  and 
LOCK'S.  You  need  to  start  with  a  network.  So,  either  LOAD 
a  previous  one  or  create  a  new  one.  Now  select  EDIT.  UJhen 
you  get  to  the  main  menu,  decide  if  you  want  to  change  a 
node,  acitivity,  or  parameter  set.  Indicate  your  decision 
by  typing  in  the  appropriate  letter.  You  then  indicate 
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which  symbol  #  you  want  to  change.  The  EDITor  will  then 
■find  your  particular  symbol  and  display  the  information  for 
that  symbol.  Your  first  option  is  deletion.  Type  N  for 
now.  Since  you  indicated  you  do  not  want  to  delete  the 
entire  symbol,  you  must  want  to  change  some  piece  of  the 
symbol.  You  are  given  some  instructions  which  explain  how 
you  can  make  these  changes.  Notice  as  you  make  these 
changes,  the  information  displayed  at  the  top  of  the  screen 

is  immediately  updated;  the  graphics  screen  is  not.  When 

you  are  through  changing  this  particular  symbol ,  type  "Q"  to 
indicate  quit.  You  will  be  returned  to  the  main  EDITor 
menu.  You  can  quit  the  EDITor,  change  another  symbol,  or 
UPDATE  your  graphics  screen  with  the  changes  you  have 
already  made.  Before  you  quit  the  EDITor,  delete  one  of  the 
nodes  (REG,  QUE,  or  STA> ,  and  UPDATE  the  graphics  screen. 
Quit  the  EDITor  and  try  to  replace  the  empty  spot  left  by 
the  deletion  with  a  new  node  by  first  locking  x  or  y  and 

then  selecting  a  node  symbol  (REG  or  STA> . 

Experiment  with  the  EDITor  and  LOCK  commands.  The  more  you 
do,  the  better  you  will  feel  about  this  program. 

GEN 

You  have  now  been  introduced  to  all  the  commands/symbols 
that  will  enable  you  to  draw  a  network.  Once  you  have 


completed  a  network  to  your  satisfaction,  you  can  GENerate 
the  QGERT  source  code.  This  is  where  the  real  savings  (time 
and  f rustrat i on >  appear  in  this  software  package.  By 
selecting  the  GEN  command  you  enter  a  new  program 
automatically.  It  starts  by  asking  you  which  file  you  want 
to  load.  Respond  by  typing  the  name  of  the  network  for 
which  you  want  to  GENerate  source  code.  The  program  loads 
the  named  network,  and  then  begins  asking  you  a  series  of 
questions.  You  will  recognize  these  as  fields  in  the 
General  card.  After  these  questions,  the  program  writes  the 
source  code  to  a  text  file  with  the  same  prefix  as  your 
network 's  name  and  shows  you  exactly  what  was  written  to 
this  file.  Finally  you  are  automatically  taken  back  to  the 
graphing  program  (QGERTNET)  where  you  can  draw  another 
network,  GENerate  more  source  code,  or  quit  the  session. 


For  this  exercise,  practice  any  of  the  commands/symbols  you 
want.  Above  all,  try  the  GENerate  command  on  several 
networks.  You  might  want  to  draw  a  network,  SAVE  it, 


GENerate  source  code,  EDIT  the  network,  SAVE  it,  GENerate 
source  code,  etc. 


Cone  1  us i on 


In  order  to  make  back-up  copies,  delete  unwanted  -files, 
perform  other  general  Apple  Pascal  disk  operations,  you  w 
have  to  know  a  little  about  the  Apple  Pascal  Operat 
System.  Since  this  manual  is  not  designed  as  a  text 
Apple  Pascal,  you  are  referred  to  the  following  manuals: 


1)  Apple  Pascal  Operating  System  Manual 

2)  Apple  Pascal  Language  Reference  Manual 


Don't  get  discouraged  if  you're  not  familiar  with  Ap| 
Pascal.  As  stated  in  the  Introduction  of  this  manual,  : 
don't  need  to  know  Apple  Pascal  to  draw  QGERT  networks  < 
generate  source  code  with  this  software  package. 


You  have  now  been  introduced  to  the  full  range  of  commai 
and  symbols  of  this  sosftware  package.  Remember  to  pract 
with  your  tablet.  As  you  do,  you  will  become  more  skillfi 
and  simulating  will  become  easier. 
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